r5804 - in /packages/libmarc-xml-perl/branches/upstream/current: META.yml lib/MARC/File/XML.pm

[gregoa-guest at users.alioth.debian.org]

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');
 	}
 }