X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB.pm;h=79a251a0961976aff3fbfca161492d821639d1d8;hb=f30f0cce6468f895c7d59f3aab6e2a5731fc9705;hp=29d0090ca2de1fe0e2bfde5d640ee92664a70fa7;hpb=abc355d2775cda30c745a277faf1307acb5a249b;p=kivitendo-erp.git diff --git a/SL/DB.pm b/SL/DB.pm index 29d0090ca..79a251a09 100644 --- a/SL/DB.pm +++ b/SL/DB.pm @@ -132,9 +132,9 @@ sub with_transaction { my $rv = 1; local $@; - + my $return_array = wantarray; eval { - wantarray + $return_array ? $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;