| Subject: | File extraction on CR-LF mode system fails. |
Extration on CR-LF system like Windows will replace char '\x0A' with
char sequence "\x0D\x0A".
Following is a clip from floppy.pm(L350-353):
open(my $fh, '>', $file) or die "could not open file for output
[$file] : $!";
print $fh $data;
close $fh;
return $this;
Problem may be due to the FILEHANDLE $fh not applied as binary mode.