X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e3b0f6130085592e16a5ec4aedf89cd3eaf9a363..6969d5c2475912e927c868e56b153ecacdfb817e:/SL/File.pm?ds=inline

diff --git a/SL/File.pm b/SL/File.pm
index 31bebcfa4..3384f290d 100644
--- a/SL/File.pm
+++ b/SL/File.pm
@@ -126,7 +126,7 @@ sub delete {
   my $rc = SL::DB->client->with_transaction(\&_delete, $self, %params);
   if (!$rc) {
     my $err = SL::DB->client->error;
-    die (ref $err?$$err:$err);
+    die $err?(ref $err?$$err:$err):"unknown err";
   }
   return $rc;
 }