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 98e5f223a2cbc33187c2c85681c685deb6643bfe..44b589b9c0d2cfe6f0d387a69b0fd0e6636f8dc9 100644 (file)
--- 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";