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

Updated require system to allow for Foo::Bar names

Browse Source
This commit is contained in:
Chris 2011-09-21 14:43:58 +01:00
parent 37cc794892
commit 793ec760fc
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

@ -184,7 +184,7 @@ sub _new_module_internal {
my $name = $modrow -> {"perl_module"};
no strict "refs"; # must disable strict references to allow named module loading.
require "$name.pm";
eval "require $name.pm";
# Set up the module argument hash...
my %args = ( "modid" => $modrow -> {"id"},
@ -192,7 +192,7 @@ sub _new_module_internal {
"module" => $self,
);
foreach my $key (keys(%{$self})) {
$args{$key} = $self -> {$key} if(!defined($args{$key}));
$args{$key} = $self -> {$key} if!(defined($args{$key}));
}
my $modobj = $name -> new(%args)