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 b4d66da42953ce0ca86181ae99e2ec47eb6fe823..d456e76b086251b67ddbf991b1b2ff9e324a3167 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;
   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;
 }
 
   return defined $found ? $found : $class->object_class->new;
 }