Revision 2772592d
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/DB/BackgroundJob.pm | ||
|---|---|---|
|
my $run_at = DateTime->now_local;
|
||
|
my $history;
|
||
|
|
||
|
eval {
|
||
|
my $ok = eval {
|
||
|
my $result = $package->new->run($self);
|
||
|
|
||
|
$history = SL::DB::BackgroundJobHistory
|
||
| ... | ... | |
|
1;
|
||
|
};
|
||
|
|
||
|
if ($EVAL_ERROR) {
|
||
|
if (!$ok) {
|
||
|
$history = SL::DB::BackgroundJobHistory
|
||
|
->new(package_name => $self->package_name,
|
||
|
run_at => $run_at,
|
||
Auch abrufbar als: Unified diff
Richtiges Handling des Fehlerfalls von eval