Extra error checking on module load success.

2011-09-30 15:34:55 +01:00 · 2011-09-30 15:34:55 +01:00 · 4bbf3ea4eb
commit 4bbf3ea4eb
parent 9d12e085c3
1 changed files with 1 additions and 0 deletions
--- a/Modules.pm
+++ b/Modules.pm
@ -185,6 +185,7 @@ sub _new_module_internal {
    my $name = $modrow -> {"perl_module"};
    no strict "refs"; # must disable strict references to allow named module loading.
    eval "require $name";
+    die "Unable to load module $name: $@" if($@);

    # Set up the module argument hash...
    my %args = ( "modid"    => $modrow -> {"id"},