Commit 8400da56 authored by Javier Herrero's avatar Javier Herrero
Browse files

Change: performs global cleanup after a worker dies unless no global cleanup...

Change: performs global cleanup after a worker dies unless no global cleanup has been explicitly requested
parent 1ce6c869
#!/usr/local/ensembl/bin/perl -w
#!/usr/bin/env perl
use warnings;
use strict;
use DBI;
use Getopt::Long;
......@@ -190,6 +191,10 @@ eval { $worker->run(); };
if($@) {
#worker threw an exception so it had a problem
if($worker->perform_global_cleanup) {
#have runnable cleanup any global/process files/data it may have created
$worker->cleanup_worker_process_temp_directory;
}
print("\n$@");
$queen->register_worker_death($worker);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment