fixed bug in grab

[biopieces.git] / code_perl / Maasha / Patscan.pm

diff --git a/code_perl/Maasha/Patscan.pm b/code_perl/Maasha/Patscan.pm
index 6de7368570988f87eb74a17721f77a96f95cdda8..386b6e4c7542c114587d6301d0b88e39d2a03839 100644 (file)
--- 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 "";