|Subject:||Use of uninitialized value in concatenation (.) at end of stream|
MARC::File::XML throws a warning error at the end of an XML stream. E.g. run this script use MARC::File::XML ( BinaryEncoding => 'utf8', RecordFormat => 'UNIMARC' ); my $filename = shift; my $file = MARC::File::XML->in( $filename ); $file->next(); $file->next(); On this file: <?xml version="1.0" encoding="UTF-8"?> <collection xmlns=""> <record> <leader> cam a22 3u 4500</leader> <controlfield tag="001">530000001</controlfield> </record> </collection> The first next() return a record (as it should). The second next() return undef (as it should) but also throws a Use of uninitialized value in concatenation (.) or string at /opt/lludss-import/local/lib/perl5/MARC/File/XML.pm line 397, <__ANONIO__> chunk 3.