DB Transaktionen - Array Context funktioniert nicht

Innerhalb des eval{} Blockes ist für wantarray ein neuer Context,
in diesem Falle ist wantarray hier nicht definiert.
Deshalb muss dies per Variable in den eval-Block übergeben werden

diff --git a/SL/DB.pm b/SL/DB.pm
index 29d0090ca2de1fe0e2bfde5d640ee92664a70fa7..79a251a0961976aff3fbfca161492d821639d1d8 100644 (file)
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -132,9 +132,9 @@ sub with_transaction {
   my $rv = 1;
 
   local $@;
   my $rv = 1;
 
   local $@;

-
+  my $return_array = wantarray;

   eval {
   eval {

-    wantarray
+    $return_array

       ? $self->do_transaction(sub { @result = $code->(@args) })
       : $self->do_transaction(sub { $result = $code->(@args) });
   } or do {
       ? $self->do_transaction(sub { @result = $code->(@args) })
       : $self->do_transaction(sub { $result = $code->(@args) });
   } or do {


@@ -150,7 +150,7 @@ sub with_transaction {
     }
   };
 
     }
   };
 

-  return wantarray ? @result : $result;
+  return $return_array ? @result : $result;

 }
 
 1;
 }
 
 1;