r5804 - in /packages/libmarc-xml-perl/branches/upstream/current: META.yml lib/MARC/File/XML.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Jul 14 22:36:25 UTC 2007
Author: gregoa-guest
Date: Sat Jul 14 22:36:24 2007
New Revision: 5804
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5804
Log:
[svn-upgrade] Integrating new upstream version, libmarc-xml-perl (0.87)
Modified:
packages/libmarc-xml-perl/branches/upstream/current/META.yml
packages/libmarc-xml-perl/branches/upstream/current/lib/MARC/File/XML.pm
Modified: packages/libmarc-xml-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmarc-xml-perl/branches/upstream/current/META.yml?rev=5804&op=diff
==============================================================================
--- packages/libmarc-xml-perl/branches/upstream/current/META.yml (original)
+++ packages/libmarc-xml-perl/branches/upstream/current/META.yml Sat Jul 14 22:36:24 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: MARC-XML
-version: 0.86
+version: 0.87
version_from: lib/MARC/File/XML.pm
installdirs: site
requires:
Modified: packages/libmarc-xml-perl/branches/upstream/current/lib/MARC/File/XML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmarc-xml-perl/branches/upstream/current/lib/MARC/File/XML.pm?rev=5804&op=diff
==============================================================================
--- packages/libmarc-xml-perl/branches/upstream/current/lib/MARC/File/XML.pm (original)
+++ packages/libmarc-xml-perl/branches/upstream/current/lib/MARC/File/XML.pm Sat Jul 14 22:36:24 2007
@@ -14,7 +14,7 @@
use Carp qw( croak );
use Encode ();
-$VERSION = '0.86';
+$VERSION = '0.87';
my $handler = MARC::File::SAX->new();
@@ -504,7 +504,7 @@
} elsif ($enc eq '50') {
return 'UTF-8';
} else {
- die "Unsupported UNIMARC charater encoding [$enc] for XML output";
+ die "Unsupported UNIMARC character encoding [$enc] for XML output for $f; 100$a -> " . $r->subfield(100 => 'a');
}
}
More information about the Pkg-perl-cvs-commits
mailing list