X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee71ba3372b47b7de1e30d56db92c1315ae1e104..a040e91fba51d85031b0b388ec3965da24f2dc31:/SL/DB/BackgroundJob.pm diff --git a/SL/DB/BackgroundJob.pm b/SL/DB/BackgroundJob.pm index b9e00c4d3..253d0d380 100644 --- 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; }