r18573 - in /trunk/libmime-charset-perl: Changes Charset.pm META.yml debian/changelog

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

Author: gregoa-guest
Date: Sun Apr 13 18:20:27 2008
New Revision: 18573

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=18573
Log:
New upstream release.

Modified:
    trunk/libmime-charset-perl/Changes
    trunk/libmime-charset-perl/Charset.pm
    trunk/libmime-charset-perl/META.yml
    trunk/libmime-charset-perl/debian/changelog

Modified: trunk/libmime-charset-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-charset-perl/Changes?rev=18573&op=diff
==============================================================================
--- trunk/libmime-charset-perl/Changes (original)
+++ trunk/libmime-charset-perl/Changes Sun Apr 13 18:20:27 2008
@@ -1,3 +1,7 @@
+2008-XX-XX	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
+	* Release 1.0XX.
+	* Bug Fix: CPAN RT #34909: Test failures (fixed at 1.006.1).
+
 2008-04-12	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
 	* Release 1.006.
 	* Workarounds for ``US-ASCII transformation'' charsets

Modified: trunk/libmime-charset-perl/Charset.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-charset-perl/Charset.pm?rev=18573&op=diff
==============================================================================
--- trunk/libmime-charset-perl/Charset.pm (original)
+++ trunk/libmime-charset-perl/Charset.pm Sun Apr 13 18:20:27 2008
@@ -121,7 +121,7 @@
     }
 }
 
-$VERSION = '1.006';
+$VERSION = '1.006.1';
 
 ######## Private Attributes ########
 
@@ -364,6 +364,7 @@
     my $mapping = uc(shift);
     my ($spec, $name, $module, $encoder);
 
+    my $preserveerr = $@;
     foreach my $m (('EXTENDED', 'STANDARD')) {
 	next if $m eq 'EXTENDED' and $mapping ne 'EXTENDED';
 	$spec = $ENCODERS{$m}->{$charset};
@@ -374,10 +375,12 @@
 		eval "use $module;";
 		next if $@;
 	    }
+	    $@ = $preserveerr;
 	    $encoder = Encode::find_encoding($name);
 	    return $encoder if ref $encoder;
 	}
     }
+    $@ = $preserveerr;
     return Encode::find_encoding($charset);
 }
 

Modified: trunk/libmime-charset-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-charset-perl/META.yml?rev=18573&op=diff
==============================================================================
--- trunk/libmime-charset-perl/META.yml (original)
+++ trunk/libmime-charset-perl/META.yml Sun Apr 13 18:20:27 2008
@@ -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:         MIME-Charset
-version:      1.006
+version:      1.006.1
 version_from: Charset.pm
 installdirs:  site
 requires:

Modified: trunk/libmime-charset-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-charset-perl/debian/changelog?rev=18573&op=diff
==============================================================================
--- trunk/libmime-charset-perl/debian/changelog (original)
+++ trunk/libmime-charset-perl/debian/changelog Sun Apr 13 18:20:27 2008
@@ -1,3 +1,9 @@
+libmime-charset-perl (1.006.1-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sun, 13 Apr 2008 20:19:18 +0200
+
 libmime-charset-perl (1.006-1) unstable; urgency=low
 
   * New upstream release.