Rechnung posten gefixt

[mfinanz.git] / SL / DB / BackgroundJob.pm

diff --git a/SL/DB/BackgroundJob.pm b/SL/DB/BackgroundJob.pm
index b9e00c4d3ec860d6a97069166bdecb72fe774de1..253d0d380d0e05c9b3262e3fecd7b0e36e0bbd56 100644 (file)
--- a/SL/DB/BackgroundJob.pm
+++ b/SL/DB/BackgroundJob.pm
@@ -27,7 +27,7 @@ sub run {
   my $run_at  = DateTime->now_local;
   my $history;
 
-  eval {
+  my $ok = eval {
     my $result = $package->new->run($self);
 
     $history = SL::DB::BackgroundJobHistory
@@ -41,12 +41,12 @@ sub run {
     1;
   };
 
-  if ($EVAL_ERROR) {
+  if (!$ok) {
     $history = SL::DB::BackgroundJobHistory
       ->new(package_name => $self->package_name,
             run_at       => $run_at,
             status       => 'failure',
-            error        => $EVAL_ERROR,
+            error_col    => $EVAL_ERROR,
             data         => $self->data);
     $history->save;
   }