fixed tmp dir cleaner in Biopieces.pm

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 5de534e7abe5af94c9aa9198e8908acccac186f9..6bf84e28f7e3d3a02756b902c32cc59d177a436c 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -6452,7 +6452,7 @@ sub clean_tmp
 {
     # Martin A. Hansen, July 2008.
 
-    # Cleans out any unused temporary files and direcotries in BP_TMP.
+    # Cleans out any unused temporary files and directories in BP_TMP.
 
     # Returns nothing.
 
@@ -6482,7 +6482,7 @@ sub clean_tmp
                 elsif ( $pid == $curr_pid )
                 {
                     # print STDERR "Removing current dir: $dir\n";
-                    Maasha::Common::dir_remove( $dir );
+                    # Maasha::Common::dir_remove( $dir );
                 }
             }
         }