From 470f9b942318450c351a5a9ea676b1e3207ba3dc Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 17 Nov 2011 10:59:54 +0000
Subject: [PATCH] fixed stupid windows \r bug in Patscan::read_patterns

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

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