X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3e74cdf941535c9a2ce004a2572e87ec9b80a1ec..a7a1c5178d3219abff3a85d94504ef01e536d101:/SL/File.pm

diff --git a/SL/File.pm b/SL/File.pm
index 8675b1870..79ca3fbeb 100644
--- a/SL/File.pm
+++ b/SL/File.pm
@@ -122,7 +122,7 @@ sub delete_all {
 
 sub delete {
   my ($self, %params) = @_;
-  die "no id or dbfile" unless $params{id} || $params{dbfile};
+  die "no id or dbfile in delete" unless $params{id} || $params{dbfile};
   my $rc = 0;
   eval {
     $rc = SL::DB->client->with_transaction(\&_delete, $self, %params);