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

Hash contents are only copied to spawned modules if values are set.

Browse Source
This commit is contained in:
Chris 2011-09-19 11:42:05 +01:00
parent 87001315b1
commit 087fe9a13a
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} if(!defined($args{$key})); $args{$key} = $self -> {$key} if(!defined($args{$key}) && defined($self -> {$key}));
} }
my $modobj = $name -> new(%args) my $modobj = $name -> new(%args)