Added check to prevent accidental data overwrite during arghash construction.

2011-09-13 10:43:13 +01:00 · 2011-09-13 10:43:13 +01:00 · 666c8b5759
commit 666c8b5759
parent 001992af81
1 changed files with 1 additions and 1 deletions
--- a/Modules.pm
+++ b/Modules.pm
@ -192,7 +192,7 @@ sub _new_module_internal {
                 "module"   => $self,
    };
    foreach my $key (%{$self}) {
-        $args{$key} = $self -> {$key};
+        $args{$key} = $self -> {$key} if(!defined($args{$key}));
    }

    my $modobj = $name -> new(%args)