From 4551c5e1c4009e45a1edf8b71a49042c252ed833 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Sat, 6 Jun 2009 18:16:30 +0000 Subject: [PATCH] fixes but in removal of tmp_dir git-svn-id: http://biopieces.googlecode.com/svn/trunk@491 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Biopieces.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm index 98e5f22..44b589b 100644 --- a/code_perl/Maasha/Biopieces.pm +++ b/code_perl/Maasha/Biopieces.pm @@ -108,12 +108,12 @@ sub status_log ( $time0, $args, $tmp_dir ) = split /;/, $line; - Maasha::Filesys::dir_remove( $tmp_dir ); + Maasha::Filesys::dir_remove( $tmp_dir ) if defined $tmp_dir; $elap = Maasha::Common::time_stamp_diff( $time0, $time1 ); - $fh_global = Maasha::Filesys::file_append_open( "$ENV{ 'BP_LOG' }/biopieces.log" ); - $fh_local = Maasha::Filesys::file_append_open( "$ENV{ 'HOME' }/.biopieces.log" ); + $fh_global = Maasha::Filesys::file_append_open( "$ENV{ 'BP_LOG' }/biopieces.log" ); + $fh_local = Maasha::Filesys::file_append_open( "$ENV{ 'HOME' }/.biopieces.log" ); print $fh_global join( "\t", $time0, $time1, $elap, $user, $status, "$script $args" ) . "\n"; print $fh_local join( "\t", $time0, $time1, $elap, $user, $status, "$script $args" ) . "\n"; -- 2.39.2