From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 17 Nov 2011 20:06:24 +0000 (+0000)
Subject: fixed bug in grab
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=951ec772e31db6e4f193fc62c72c7150d76e68bf;p=biopieces.git

fixed bug in grab

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

diff --git a/code_perl/Maasha/Patscan.pm b/code_perl/Maasha/Patscan.pm
index 6de7368..386b6e4 100644
--- a/code_perl/Maasha/Patscan.pm
+++ b/code_perl/Maasha/Patscan.pm
@@ -59,7 +59,7 @@ sub read_patterns
 
     while ( $line = <$fh> )
     {
-        $line =~ s/\r\n//g;
+        $line =~ s/\r|\n//g;
 
         next if $line eq "";