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

Incorrect argument hash type, argh.

Browse Source
This commit is contained in:
Chris 2011-09-13 10:46:42 +01:00
parent 666c8b5759
commit 9d30680c2c
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

@ -187,10 +187,10 @@ sub _new_module_internal {
require "$name.pm"; require "$name.pm";
# Set up the module argument hash... # Set up the module argument hash...
my %args = { "modid" => $modrow -> {"id"}, my %args = ( "modid" => $modrow -> {"id"},
"args" => $modarg, "args" => $modarg,
"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}));
} }