| Subject: | open via File::BOM doesn't support seek() ? |
Hiya,
Ta for File::BOM - quite handy!
Unfortunately it seems to be breaking seek():
spurkis@dev:~ $ perl -d -MFile::BOM -MIO::File -e 1
Loading DB routines from perl5db.pl version 1.27
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): 1
DB<1> $fh = IO::File->new( 't/data/utf8_data.csv' );
DB<2> p <$fh>
id,street,town,pc,country,english,french,chinese,arabic
10,"écoles",zoom,12,france,auctions,"Enchères","??","????"
DB<3> $fh->seek(0,0)
DB<4> p <$fh>
id,street,town,pc,country,english,french,chinese,arabic
10,"écoles",zoom,12,france,auctions,"Enchères","??","????"
DB<5> $fh = IO::File->new( 't/data/utf8_data.csv', '<:via(File::BOM)' );
DB<6> p <$fh>
id,street,town,pc,country,english,french,chinese,arabic
10,"écoles",zoom,12,france,auctions,"Enchères","??","????"
DB<7> $fh->seek(0,0)
DB<8> p <$fh>
DB<9>
nothing is printed...
-Steve