X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a27dd3ae50d468c4e27ae6882ecca1fc7f3891ea..0d5564ee4eaf6af6cbcc0c59b08e9ed16c828b49:/SL/DB/Helper/Manager.pm?ds=inline

diff --git a/SL/DB/Helper/Manager.pm b/SL/DB/Helper/Manager.pm
index b4d66da42..d456e76b0 100644
--- a/SL/DB/Helper/Manager.pm
+++ b/SL/DB/Helper/Manager.pm
@@ -22,7 +22,10 @@ sub find_by_or_create {
   my $class = shift;
 
   my $found;
-  eval { $found = $class->find_by(@_); };
+  eval {
+    $found = $class->find_by(@_);
+    1;
+  } or die $@;
   return defined $found ? $found : $class->object_class->new;
 }