From 666c8b57592ec364f4bd3440df698fbaa466fc7e Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Tue, 13 Sep 2011 10:43:13 +0100
Subject: [PATCH] Added check to prevent accidental data overwrite during
 arghash construction.

---
 Modules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Modules.pm b/Modules.pm
index ee0fce3..8d5b835 100644
--- 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)