From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 25 Jul 2008 04:21:03 +0000 (+0000)
Subject: fixed another annoying bug in clean_tmp()
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8bbe2c1dfb89cb9161e233f3cb23b15823236a91;p=biopieces.git

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 43fd96e..372c269 100644
--- 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;