SL::DB::Manager: find_by_or_create bubbelt jetzt exceptions

diff --git a/SL/DB/Helper/Manager.pm b/SL/DB/Helper/Manager.pm
index b4d66da..d456e76 100644 (file)
--- 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;
 }