[Bioperl-l] Root::IO handle Mac and Win32 LF

Jason Stajich jason at cgt.duhs.duke.edu
Mon Dec 15 13:02:32 EST 2003


We currently have this code in Bio::Root::IO to handle stripping linefeeds
$line =~ s/\r\n/\n/g if( (!$param{-raw}) && (defined $line) );

This only matches Mac LF, to handle windows we need to also strip \n\r
so I am going to change it to the following:

 $line =~ s/\r\n/\n/g, $line =~ s/\n\r/\n/g
  if( (!$param{-raw}) && (defined $line) );

Since this is a core critical module wanted to just post it to see if
anyone has objections/suggestions.

-jason
--
Jason Stajich
Duke University
jason at cgt.mc.duke.edu


More information about the Bioperl-l mailing list