* fixed possible hiding of error messages when something goes wrong in a

  module that is being loaded dynamically (specifically the case when a plugin
  is trying to load the most appropriate Distro module)

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2033 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index 07ab364b..5b43f155 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -605,13 +605,14 @@ sub instantiateClass
     $moduleName .= '.pm';
 
     vlog(3, "trying to load $moduleName...");
+    local @INC = @INC;
     foreach my $incPath (@$incPaths) {
         next if grep { $_ eq $incPath } @INC;
         unshift @INC, $incPath;
     }
     if (!eval { require $moduleName; 1 } ) {
         # check if module does not exists anywhere in search path
-        if (!-e $moduleName) {
+        if ($! == 2) {
             return if $flags->{acceptMissing};
             die _tr("Module '%s' not found!\n", $moduleName);
         }
@@ -733,10 +734,10 @@ sub loadDistroModule
         };
         last if $loaded;
         if (!defined $loaded) {
-            vlog(0, _tr(
+            die _tr(
                 "Error when trying to load distro module '%s':\n%s", 
                 $distroModule, $@
-            ));
+            );
         }
     }