From: martinahansen 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;