[Bio] / FortyEight / batch_rast.pl Repository:
ViewVC logotype

Diff of /FortyEight/batch_rast.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8, Tue Jan 19 17:16:32 2010 UTC revision 1.9, Tue Jan 19 19:26:51 2010 UTC
# Line 342  Line 342 
342  {  {
343      my(@cmd) = @_;      my(@cmd) = @_;
344    
345      print "Start: @cmd\n";      my $cmd_str = join(" ", @cmd);
346        print "Start: $cmd_str\n";
347        $meta->add_log_entry($0, ['Start', $cmd_str)]);
348      my $rc = system(@cmd);      my $rc = system(@cmd);
349      if ($rc != 0)      if ($rc != 0)
350      {      {
351          confess "Cmd failed with rc=$rc: @cmd\n";          $meta->add_log_entry($0, ['Failed', $rc, $cmd_str]);
352            confess "Cmd failed with rc=$rc: $cmd_str\n";
353      }      }
354      print "Done: @cmd\n";      $meta->add_log_entry($0, ['Done', $cmd_str]);
355        print "Done: $cmd_str\n";
356  }  }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3