Subject: | Windows incompatibility |
Date: | Wed, 24 Mar 2010 10:56:42 -0700 |
To: | bug-Bio-Trace-ABIF [...] rt.cpan.org |
From: | "P Fudd" <fink [...] ch.pkts.ca> |
Hi!
I'm attempting to rewrite the DATA1 track of an FSA file, and I've found a
weird error. My program works when I run it in linux, but it fails
completely when I run in windows 7 using ActiveState perl 5.10.1 Build
1006.
This is the smallest example I could produce:
my $OUTFILE="existing-file.fsa";
my $abif = Bio::Trace::ABIF->new();
my @raw=(0)x10000;
$abif->open_abif($OUTFILE,1);
my $r=$abif->write_tag("DATA","1",\@raw); if ($r==0) {die("DATA1 not
written");}
$abif->close_abif();
The problem is in _scan_tags; for some unknown reason, seek() works (if
tell() is telling the truth), but the read() returns unexpected data, not
the tag name or number.
I've tried using sys_seek() and sys_read(), and I've tried various
binmode() settings, to no avail. I've run out of time to tinker with it,
but thought you might be interested.
Thanks for writing this module!