| CC: | mi.cpan [...] 2009.alma.ch |
| Subject: | parse fails if given IO::File object as in example |
Following the example in the Synopsis fails with the error
"'ID3' not found in header"
Apparently, this is because of
if ( ( ref $fh ) eq 'GLOB' )
in the parse routine at line 288 (and also later at line 328).
When using an IO::File object as in the Synopsis example, ref($fh) is
"IO::File", not "GLOB".
A simple fix seems to be to replace these 2 lines with
if ( ( ref $fh ) eq 'GLOB' or ( ref $fh ) eq 'IO::File' ) {