From 8bbe2c1dfb89cb9161e233f3cb23b15823236a91 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 25 Jul 2008 04:21:03 +0000
Subject: [PATCH] fixed another annoying bug in clean_tmp()

git-svn-id: http://biopieces.googlecode.com/svn/trunk@195 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Biopieces.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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