summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/OpenSLX/Basics.pm17
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index a9e017d2..fab5554a 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -602,8 +602,9 @@ sub instantiateClass
my $flags = shift || {};
checkParams($flags, {
- 'pathToClass' => '?',
- 'version' => '?'
+ 'acceptMissing' => '?',
+ 'pathToClass' => '?',
+ 'version' => '?',
});
my $pathToClass = $flags->{pathToClass};
my $requestedVersion = $flags->{version};
@@ -611,13 +612,15 @@ sub instantiateClass
my $moduleName = defined $pathToClass ? "$pathToClass/$class" : $class;
$moduleName =~ s[::][/]g;
$moduleName .= '.pm';
- unless (eval { require $moduleName } ) {
- if ($! == 2) {
+
+ if (!eval { require $moduleName } ) {
+ # check if module does not exists anywhere in search path
+ if (!-e $moduleName) {
+ return if $flags->{acceptMissing};
die _tr("Module '%s' not found!\n", $moduleName);
}
- else {
- die _tr("Unable to load module '%s' (%s)\n", $moduleName, $@);
- }
+ # some other error (probably compilation problems)
+ die _tr("Unable to load module '%s' (%s)\n", $moduleName, $@);
}
if (defined $requestedVersion) {
my $classVersion = $class->VERSION;