Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added check to prevent accidental data overwrite during arghash construction.

Browse Source
This commit is contained in:
Chris 2011-09-13 10:43:13 +01:00
parent 001992af81
commit 666c8b5759
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules.pm
View File

@ -192,7 +192,7 @@ sub _new_module_internal {
"module" => $self, "module" => $self,
}; };
foreach my $key (%{$self}) { foreach my $key (%{$self}) {
$args{$key} = $self -> {$key}; $args{$key} = $self -> {$key} if(!defined($args{$key}));
} }
my $modobj = $name -> new(%args) my $modobj = $name -> new(%args)