This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Encode to CPAN version 2.47
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 15 Aug 2012 06:47:38 +0000 (07:47 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 15 Aug 2012 06:47:38 +0000 (07:47 +0100)
  [DELTA]

  $Revision: 2.47 $ $Date: 2012/08/15 05:36:16 $
  ! Encode.pm
    POD Fixes: Copyright and mail address
  ! Makefile.PL
    Added LICENSE => 'perl'
  ! lib/Encode/GSM0338.pm t/gsm0338.t
    REALLY fixed RT#75670: Wrong decoding for GSM 3.38 character \x09
    ucm/gsm0338.ucm is dropped from MANIFEST since 2.25
    but I was fixing the wrong file!
    https://rt.cpan.org/Ticket/Display.html?id=75670

Porting/Maintainers.pl
cpan/Encode/Changes
cpan/Encode/Encode.pm
cpan/Encode/META.json
cpan/Encode/META.yml
cpan/Encode/Makefile.PL
cpan/Encode/lib/Encode/GSM0338.pm
cpan/Encode/t/gsm0338.t
pod/perldelta.pod

index 80f8149..8cb7ac2 100755 (executable)
@@ -629,7 +629,7 @@ use File::Glob qw(:case);
 
     'Encode' => {
         'MAINTAINER'   => 'dankogai',
-        'DISTRIBUTION' => 'DANKOGAI/Encode-2.46.tar.gz',
+        'DISTRIBUTION' => 'DANKOGAI/Encode-2.47.tar.gz',
         'FILES'        => q[cpan/Encode],
         'UPSTREAM'     => 'cpan',
     },
index 6bacb71..8f8f7df 100644 (file)
@@ -1,12 +1,23 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 2.46 2012/08/12 05:49:30 dankogai Exp dankogai $
+# $Id: Changes,v 2.47 2012/08/15 05:36:16 dankogai Exp dankogai $
 #
-$Revision: 2.46 $ $Date: 2012/08/12 05:49:30 $
+$Revision: 2.47 $ $Date: 2012/08/15 05:36:16 $
+! Encode.pm
+  POD Fixes: Copyright and mail address
+! Makefile.PL
+  Added LICENSE => 'perl'
+! lib/Encode/GSM0338.pm t/gsm0338.t
+  REALLY fixed RT#75670: Wrong decoding for GSM 3.38 character \x09
+  ucm/gsm0338.ucm is dropped from MANIFEST since 2.25
+  but I was fixing the wrong file!
+  https://rt.cpan.org/Ticket/Display.html?id=75670
+
+! 2.46 2012/08/12 05:49:30
 ! Encode.pm
   Fixed: RT#78917 for I18N-Charset: Fails with Encode 2.45
   To be more exact, 2.45 broke Encode->encodings(':all')
-  https://rt.cpan.org/Ticket/Bug/Display.html?id=78917
+  https://rt.cpan.org/Ticket/Display.html?id=78917
 
 2.45 2012/08/05 23:08:49
 ! lib/Encode/Alias.pm
index db9cd05..ff7e0de 100644 (file)
@@ -1,10 +1,10 @@
 #
-# $Id: Encode.pm,v 2.46 2012/08/12 05:49:30 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.47 2012/08/15 05:36:16 dankogai Exp dankogai $
 #
 package Encode;
 use strict;
 use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.46 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.47 $ =~ /(\d+)/g;
 use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
 use XSLoader ();
 XSLoader::load( __PACKAGE__, $VERSION );
@@ -1010,7 +1010,7 @@ the Perl Unicode Mailing List L<http://lists.perl.org/list/perl-unicode.html>
 =head1 MAINTAINER
 
 This project was originated by the late Nick Ing-Simmons and later
-maintained by Dan Kogai I<< <dankogai@dan.co.jp> >>.  See AUTHORS
+maintained by Dan Kogai I<< <dankogai@cpan.org> >>.  See AUTHORS
 for a full list of people involved.  For any questions, send mail to
 I<< <perl-unicode@perl.org> >> so that we can all share.
 
@@ -1020,7 +1020,7 @@ who submitted code to the project.
 
 =head1 COPYRIGHT
 
-Copyright 2002-2011 Dan Kogai I<< <dankogai@dan.co.jp> >>.
+Copyright 2002-2012 Dan Kogai I<< <dankogai@cpan.org> >>.
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
index 44e6079..80ef7b7 100644 (file)
@@ -6,7 +6,7 @@
    "dynamic_config" : 1,
    "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921",
    "license" : [
-      "unknown"
+      "perl_5"
    ],
    "meta-spec" : {
       "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
@@ -35,5 +35,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "2.46"
+   "version" : "2.47"
 }
index 0492b90..cf556fa 100644 (file)
@@ -8,7 +8,7 @@ configure_requires:
   ExtUtils::MakeMaker: 0
 dynamic_config: 1
 generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921'
-license: unknown
+license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
   version: 1.4
@@ -18,4 +18,4 @@ no_index:
     - t
     - inc
 requires: {}
-version: 2.46
+version: 2.47
index 2db8802..f12f02d 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile.PL,v 2.8 2009/07/08 13:34:15 dankogai Exp $
+# $Id: Makefile.PL,v 2.9 2012/08/15 05:36:16 dankogai Exp dankogai $
 #
 use 5.007003;
 use strict;
@@ -43,6 +43,7 @@ WriteMakefile(
         DIST_DEFAULT => 'all tardist',
     },
     INC         => '-I' . File::Spec->catfile( '.', 'Encode' ),
+    LICENSE     => 'perl',
     PMLIBDIRS   => \@pmlibdirs,
     INSTALLDIRS => 'perl',
 );
index 2ea71f2..381d5a4 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp $
+# $Id: GSM0338.pm,v 2.2 2012/08/15 05:36:16 dankogai Exp dankogai $
 #
 package Encode::GSM0338;
 
@@ -8,7 +8,7 @@ use warnings;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+$VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
 use Encode qw(:fallbacks);
 
@@ -138,7 +138,8 @@ our %UNI2GSM = (
     "\x{00E4}" => "\x7B",        # LATIN SMALL LETTER A WITH DIAERESIS
     "\x{00E5}" => "\x0F",        # LATIN SMALL LETTER A WITH RING ABOVE
     "\x{00E6}" => "\x1D",        # LATIN SMALL LETTER AE
-    "\x{00E7}" => "\x09",        # LATIN SMALL LETTER C WITH CEDILLA
+    #"\x{00E7}" => "\x09",        # LATIN SMALL LETTER C WITH CEDILLA
+    "\x{00C7}" => "\x09",        # LATIN CAPITAL LETTER C WITH CEDILLA
     "\x{00E8}" => "\x04",        # LATIN SMALL LETTER E WITH GRAVE
     "\x{00E9}" => "\x05",        # LATIN SMALL LETTER E WITH ACUTE
     "\x{00EC}" => "\x07",        # LATIN SMALL LETTER I WITH GRAVE
index 822ff4f..127604b 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
 
 use strict;
 use utf8;
-use Test::More tests => 778;
+use Test::More tests => 780;
 use Encode;
 use Encode::GSM0338;
 
@@ -87,6 +87,10 @@ for my $c ( map { chr } 0 .. 127 ) {
     }
 }
 
+# https://rt.cpan.org/Ticket/Display.html?id=75670
+is decode("gsm0338", "\x09") => chr(0xC7), 'RT75670: decode';
+is encode("gsm0338", chr(0xC7)) => "\x09", 'RT75670: encode';
+
 __END__
 for my $c (map { chr } 0..127){
     my $b = "\x1b$c";
index 0f951df..3a794a5 100644 (file)
@@ -167,7 +167,7 @@ internals.
 
 =item *
 
-L<Encode> has been upgraded from version 2.44 to 2.46.  The Mac alias x-mac-ce
+L<Encode> has been upgraded from version 2.44 to 2.47.  The Mac alias x-mac-ce
 has been added, and various bugs have been fixed in Encode::Unicode and
 Encode::UTF7.