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

When iterating over hash keys, it is a good idea to use keys()!

Browse Source
This commit is contained in:
Chris 2011-09-19 11:54:53 +01:00
parent 9f42704254
commit 02caf90c4f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules.pm
View File

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