Filemanagement: Korrekte Fehlermeldung anzeigen

diff --git a/SL/File.pm b/SL/File.pm
index 1ecd7d5105a3ce71ed74093953a262d4c77b1418..8675b1870da9e81f453e9bd83f711adb4cb46599 100644 (file)
--- a/SL/File.pm
+++ b/SL/File.pm
@@ -326,7 +326,11 @@ sub _get_backend {
     die $::locale->text('backend "#1" not enabled',$backend_name) unless $obj->enabled;
     1;
   } or do {
     die $::locale->text('backend "#1" not enabled',$backend_name) unless $obj->enabled;
     1;
   } or do {

-    die $::locale->text('backend "#1" not found',$backend_name);
+    if ( $obj ) {
+      die $@;
+    } else {
+      die $::locale->text('backend "#1" not found',$backend_name);
+    }

   };
   return $obj;
 }
   };
   return $obj;
 }