fixed stupid windows \r bug in Patscan::read_patterns

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

diff --git a/code_perl/Maasha/Patscan.pm b/code_perl/Maasha/Patscan.pm
index 7aeb3c32c19eeedb4db0c744e0fbc10eb01c339a..6de7368570988f87eb74a17721f77a96f95cdda8 100644 (file)
--- a/code_perl/Maasha/Patscan.pm
+++ b/code_perl/Maasha/Patscan.pm
@@ -28,6 +28,7 @@ package Maasha::Patscan;
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use Data::Dumper;
 use Maasha::Common;
@@ -54,11 +55,11 @@ sub read_patterns
 
     my ( $fh, $line, @patterns );
 
-    $fh = &Maasha::Common::read_open( $path );
+    $fh = Maasha::Common::read_open( $path );
 
     while ( $line = <$fh> )
     {
-        chomp $line;
+        $line =~ s/\r\n//g;
 
         next if $line eq "";