fixed another annoying bug in clean_tmp()

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 43fd96e2a12ba30821b6f25e8e821e2d367b3475..372c2699551a2ff17756da289dc98e11434b0e79 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -6081,7 +6081,7 @@ sub clean_tmp
 
     foreach $dir ( @dirs )
     {
-        if ( $dir =~ /(.+)_(\d+)_(\d+)_bp_tmp/ )
+        if ( $dir =~ /^$tmpdir\/(.+)_(\d+)_(\d+)_bp_tmp$/ )
         {
             $user = $1;
             $sid  = $2;