Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2772592d

Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt

  • ID 2772592dab54533eb91a0d11ade01ed24cc58d19
  • Vorgänger 37f3d6cc
  • Nachfolger c5db99b7

Richtiges Handling des Fehlerfalls von eval

Unterschiede anzeigen:

SL/DB/BackgroundJob.pm
27 27 
  my $run_at  = DateTime->now_local;
28 28 
  my $history;
29 29 

  		




  30
  
  
    
  eval {


  		




  
  30
  
    
  my $ok = eval {


  		




  31
  31
  
    
    my $result = $package->new->run($self);


  		




  32
  32
  
    

  		




  33
  33
  
    
    $history = SL::DB::BackgroundJobHistory


  		




  ......




  41
  41
  
    
    1;


  		




  42
  42
  
    
  };


  		




  43
  43
  
    

  		




  44
  
  
    
  if ($EVAL_ERROR) {


  		




  
  44
  
    
  if (!$ok) {


  		




  45
  45
  
    
    $history = SL::DB::BackgroundJobHistory


  		




  46
  46
  
    
      ->new(package_name => $self->package_name,


  		




  47
  47
  
    
            run_at       => $run_at,


  		












Auch abrufbar als:  Unified diff