From 793ec760fc3cb537d9121281ada041d5a3816fb0 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Wed, 21 Sep 2011 14:43:58 +0100
Subject: [PATCH] Updated require system to allow for Foo::Bar names

---
 Modules.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Modules.pm b/Modules.pm
index bab3411..564dd0c 100644
--- a/Modules.pm
+++ b/Modules.pm
@@ -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)