r38256 - in /branches/upstream/libmime-charset-perl/current: Changes Charset.pm Charset/CP932.pm MANIFEST META.yml Makefile.PL t/05jp.t t/pod.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Fri Jun 19 01:16:29 UTC 2009


Author: jawnsy-guest
Date: Fri Jun 19 01:16:24 2009
New Revision: 38256

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38256
Log:
[svn-upgrade] Integrating new upstream version, libmime-charset-perl (1.007.1)

Removed:
    branches/upstream/libmime-charset-perl/current/Charset/CP932.pm
Modified:
    branches/upstream/libmime-charset-perl/current/Changes
    branches/upstream/libmime-charset-perl/current/Charset.pm
    branches/upstream/libmime-charset-perl/current/MANIFEST
    branches/upstream/libmime-charset-perl/current/META.yml
    branches/upstream/libmime-charset-perl/current/Makefile.PL
    branches/upstream/libmime-charset-perl/current/t/05jp.t
    branches/upstream/libmime-charset-perl/current/t/pod.t

Modified: branches/upstream/libmime-charset-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/Changes?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/Changes (original)
+++ branches/upstream/libmime-charset-perl/current/Changes Fri Jun 19 01:16:24 2009
@@ -1,15 +1,15 @@
+2009-06-16	Hatuka*nezumi - IKEDA Soji	<hatuka(at)nezumi.nu>
+
+	* Release 1.007.1.
+	* Changes:
+	- eucJP-ascii and its 7-bit counterpart was chosen instead of
+	  eucJP-ms, as latter will occasionally break standardized mappings.
+	  Shift-encoding counterpart hasn't been implemented yet.
+	* Fix: Skip all pod tests on pre-UTF8 Perl.
+
 2009-05-17	Hatuka*nezumi - IKEDA Soji	<hatuka(at)nezumi.nu>
 
-	* Release 1.007.
-	* Charset/CP932.pm: Changes:
-	- eucJP-ascii was chosen instead of eucJP-ms, as latter will break
-	  standardized mappings.
-	- 7-bit counterpart of eucJP-ascii also accepts JIS X 0201 Latin:
-	  two “national use” characters (5/12 YEN SIGN & 7/14 OVERLINE)
-	  are given one-way mappings to JIS X 0208.
-	- Shift-encoding counterpart hasn't been implemented yet: lack
-	  of fallback mappings.
-	* Fix: Perl 5.6.x - skip tests with older POD::Simple.
+	* Release 1.007 - not really released.
 
 2009-05-12	Hatuka*nezumi - IKEDA Soji	<hatuka(at)nezumi.nu>
 

Modified: branches/upstream/libmime-charset-perl/current/Charset.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/Charset.pm?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/Charset.pm (original)
+++ branches/upstream/libmime-charset-perl/current/Charset.pm Fri Jun 19 01:16:24 2009
@@ -123,7 +123,7 @@
     }
 }
 
-$VERSION = '1.007';
+$VERSION = '1.007.1';
 
 ######## Private Attributes ########
 
@@ -201,21 +201,18 @@
 		    'ISO-8859-13'=> [['cp1257'], ],     # Encode::Byte
 		    'GB2312'     => [['cp936'], ],      # Encode::CN
 		    'EUC-JP'     => [
-				     ['x-8biteucjpascii',
-				      		       'MIME::Charset::CP932'],
-				     # ['cp51932',        'Encode::EUCJPMS'],
+				     ['eucJP-ascii',	'Encode::EUCJPASCII'],
+				     # ['cp51932',	'Encode::EUCJPMS'],
 				    ],
 		    'ISO-2022-JP'=> [
-				     ['x-7biteucjpascii',
-				      		       'MIME::Charset::CP932'],
+				     ['x-iso2022jp-ascii',
+				      			'Encode::EUCJPASCII'],
+				     # ['iso-2022-jp-ms','Encode::ISO2022JPMS'],
 				     # ['cp50220',      'Encode::EUCJPMS'],
 				     # ['cp50221',      'Encode::EUCJPMS'],
-				     ['iso-2022-jp-ms', 'Encode::ISO2022JPMS'],
 				     ['iso-2022-jp-1'], # Encode::JP (note*)
 				    ],
 		    'SHIFT_JIS'  => [
-				     # ['x-shifteucjpascii',
-				     # 		       'MIME::Charset::CP932'],
 				     ['cp932'],		# Encode::JP
 				    ],
 		    'EUC-KR'     => [['cp949'], ],      # Encode::KR

Modified: branches/upstream/libmime-charset-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/MANIFEST?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/MANIFEST (original)
+++ branches/upstream/libmime-charset-perl/current/MANIFEST Fri Jun 19 01:16:24 2009
@@ -2,7 +2,6 @@
 Changes
 Charset.pm
 Charset/_Compat.pm
-Charset/CP932.pm
 Charset/Defaults.pm.sample
 Charset/JA_JP.pod
 GPL

Modified: branches/upstream/libmime-charset-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/META.yml?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/META.yml (original)
+++ branches/upstream/libmime-charset-perl/current/META.yml Fri Jun 19 01:16:24 2009
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name:         MIME-Charset
 abstract:     Charset Informations for MIME
-version:      1.007
+version:      1.007.1
 author:
   - Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>
 license:      perl
@@ -13,7 +13,7 @@
 - ja_extended:
     description: Extended mappings by Japanese codepages
     requires:
-        Encode::EUCJPMS:           0.06
+        Encode::EUCJPASCII:        0.02
 - jis2000:
     description: Additional mappings for JIS X 0213:2000
     requires:
@@ -27,7 +27,7 @@
 provides:
     MIME::Charset:
         file:                      Charset.pm
-        version:                   1.007
+        version:                   1.007.1
 resources:
     repository: http://hatuka.nezumi.nu/repos/MIME-Charset/
 meta-spec:

Modified: branches/upstream/libmime-charset-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/Makefile.PL?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/Makefile.PL (original)
+++ branches/upstream/libmime-charset-perl/current/Makefile.PL Fri Jun 19 01:16:24 2009
@@ -14,7 +14,7 @@
     include 'Module::AutoInstall';
     feature 'Extended mappings by Japanese codepages',
       -default          => 0,
-      'Encode::EUCJPMS' => '0.06';
+      'Encode::EUCJPASCII' => '0.02';
     feature 'Additional mappings for JIS X 0213:2000',
       -default        => 0,
       'Encode::JIS2K' => '0.02';

Modified: branches/upstream/libmime-charset-perl/current/t/05jp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/t/05jp.t?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/t/05jp.t (original)
+++ branches/upstream/libmime-charset-perl/current/t/05jp.t Fri Jun 19 01:16:24 2009
@@ -1,8 +1,8 @@
 use strict;
 use Test::More;
-eval "use Encode::EUCJPMS";
+eval "use Encode::EUCJPASCII";
 if ($@) {
-    plan skip_all => "Encode::EUCJPMS required";
+    plan skip_all => "Encode::EUCJPASCII required";
 } else {
     plan tests => 18;
 }
@@ -10,7 +10,7 @@
 use MIME::Charset qw(:trans);
 
 my ($converted, $charset, $encoding);
-my $src = "\x5C\x7E\xA1\xB1\xA1\xBD\xA1\xC0\xA1\xC1\xA1\xC2\xA1\xDD\xA1\xEF\xA1\xF1\xA1\xF2\xA2\xCC\x8F\xA2\xB7\x8F\xA2\xC3";
+my $src = "\x5C\x7E\xA1\xB1\xA1\xBD\xA1\xC0\xA1\xC1\xA1\xC2\xA1\xDD\xA1\xEF\xA1\xF1\xA1\xF2\xA2\xCC\xA1\xC1\x8F\xA2\xC3";
 my $dst = "\x5c\x7e\e\x24\x42\x21\x31\x21\x3d\x21\x40\x21\x41\x21\x42\x21\x5d\x21\x6f\x21\x71\x21\x72\x22\x4c\x21\x41\e\x24\x28\x44\x22\x43\e\x28\x42";
 
 # test get encodings for body

Modified: branches/upstream/libmime-charset-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-charset-perl/current/t/pod.t?rev=38256&op=diff
==============================================================================
--- branches/upstream/libmime-charset-perl/current/t/pod.t (original)
+++ branches/upstream/libmime-charset-perl/current/t/pod.t Fri Jun 19 01:16:24 2009
@@ -1,8 +1,7 @@
 use strict;
 use Test::More;
-eval "use Pod::Simple 2.06";
-if ($@) {
-    plan skip_all => "Pod::Simple 2.05 or later required for testing POD";
+if ($] < 5.007003 ) {
+    plan skip_all => "Perl 5.7.3 or later required for testing utf-8 POD";
 } else {
     eval "use Test::Pod 1.00";
     if ($@) {




More information about the Pkg-perl-cvs-commits mailing list