perl4lib / marc-perl

MARC/Perl - Perl libraries for processing MARC records
4 stars 8 forks source link

CPAN version of MARC::File::XML differs from Github version #10

Open akohler opened 6 years ago

akohler commented 6 years ago

Both versions are labeled as 1.0.5, but the version on CPAN seems to be missing the commit a56b097 from July 20 2017: "do not try to read from filehandle that has reached eof() "

=> curl -s https://fastapi.metacpan.org/source/GMCHARLT/MARC-File-XML-1.0.5/lib/MARC/File/XML.pm > cpan_xml.pm
=> curl -s https://raw.githubusercontent.com/perl4lib/marc-perl/master/marc-xml/lib/MARC/File/XML.pm > github_xml.pm
=> diff cpan_xml.pm github_xml.pm
399c399
<     $xml .= <$fh> if $xml !~ m!</([^:]+:){0,1}record>$!;
---
>     $xml .= <$fh> if $xml !~ m!</([^:]+:){0,1}record>$! && !eof($fh);

Can you please update the CPAN version?

Thanks --Andy