From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Sat, 6 Jun 2009 18:16:30 +0000 (+0000)
Subject: fixes but in removal of tmp_dir
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4551c5e1c4009e45a1edf8b71a49042c252ed833;p=biopieces.git

fixes but in removal of tmp_dir

git-svn-id: http://biopieces.googlecode.com/svn/trunk@491 74ccb610-7750-0410-82ae-013aeee3265d
---

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";