Changeset 15030 for lang/perl/Encode

Timestamp:

07/02/08 05:59:46 (5 years ago)

Author:

dankogai

Message:

Version 2.26

Location:

lang/perl/Encode/trunk

Files:

• Changes (modified) (1 diff)
• Encode.pm (modified) (2 diffs)
• Makefile.PL (modified) (3 diffs)
• lib/Encode/Alias.pm (modified) (2 diffs)
• lib/Encode/GSM0338.pm (modified) (1 diff)
• lib/Encode/JP/JIS7.pm (modified) (2 diffs)
• t/Aliases.t (modified) (1 diff)
• ucm/cp850.ucm (modified) (1 diff)
• ucm/cp852.ucm (modified) (1 diff)
• ucm/cp855.ucm (modified) (1 diff)
• ucm/cp856.ucm (modified) (1 diff)
• ucm/cp857.ucm (modified) (1 diff)
• ucm/cp858.ucm (modified) (1 diff)
• ucm/cp860.ucm (modified) (1 diff)
• ucm/cp861.ucm (modified) (1 diff)
• ucm/cp862.ucm (modified) (1 diff)
• ucm/cp863.ucm (modified) (1 diff)
• ucm/cp864.ucm (modified) (1 diff)
• ucm/cp865.ucm (modified) (1 diff)
• ucm/cp866.ucm (modified) (1 diff)
• ucm/cp869.ucm (modified) (1 diff)
• ucm/cp874.ucm (modified) (1 diff)
• ucm/cp875.ucm (modified) (1 diff)

lang/perl/Encode/trunk/Changes

@@ -1 +1 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: Changes,v 2.26 2008/07/01 20:56:17 dankogai Exp dankogai $
 #
-$Revision: 2.25 $ $Date: 2008/05/07 20:56:05 $
+$Revision: 2.26 $ $Date: 2008/07/01 20:56:17 $
+! Encode.pm
+  Absense of Encode::ConfigLocal no longer carps no matter what.
+  https://bugzilla.redhat.com/show_bug.cgi?id=435505#c2
+  https://rt.cpan.org/Ticket/Display.html?id=28638
+  https://rt.cpan.org/Ticket/Display.html?id=11511
+! lib/Encode/JIS7.pm
+  use encoding 'utf8' and 'iso-2022-jp' glitches on perl 5.10
+  Thanks, MIYAGAWA
+  Message-Id: <693254b90807011224h3ab50d76v50c6fea87baf223c@mail.gmail.com>
+! lib/Encode/Alias.pm t/Aliases.t
+  macintosh' not recognize as MacRoman
+  http://rt.cpan.org/Ticket/Display.html?id=36326
+! Makefile.PL
+  s{INC => "-I./Encode"}
+   {INC         => '-I' . File::Spec->catfile( '.', 'Encode' )}
+  To prevent some platforms from forgetting to include Encode/encode.h.  
+  http://rt.cpan.org/Ticket/Display.html?id=36348
+
+2.25 2008/05/07 20:56:05
 ! Encode.pm
   added ':default' to Exporter option.

lang/perl/Encode/trunk/Encode.pm

@@ -1 +1 @@
 #
-# $Id: Encode.pm,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.26 2008/07/01 20:56:17 dankogai Exp dankogai $
 #
 package Encode;
 use strict;
 use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.25 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.26 $ =~ /(\d+)/g;
 sub DEBUG () { 0 }
 use XSLoader ();
@@ -52 +52 @@
 our %ExtModule;
 require Encode::Config;
-eval { require Encode::ConfigLocal };
+#  See
+#  https://bugzilla.redhat.com/show_bug.cgi?id=435505#c2
+#  to find why sig handers inside eval{} are disabled.
+eval {
+    local $SIG{__DIE__};
+    local $SIG{__WARN__};
+    require Encode::ConfigLocal;
+};
 
 sub encodings {

lang/perl/Encode/trunk/Makefile.PL

@@ -1 +1 @@
 #
-# $Id: Makefile.PL,v 2.6 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: Makefile.PL,v 2.7 2008/07/01 20:56:17 dankogai Exp dankogai $
 #
 use 5.007003;
@@ -6 +6 @@
 use warnings;
 use ExtUtils::MakeMaker;
+use File::Spec;
 
 # Just for sure :)
@@ -35 +36 @@
 
 WriteMakefile(
-          NAME          => "Encode",
-          EXE_FILES         => \@exe_files,
-          VERSION_FROM  => 'Encode.pm',
-          OBJECT                => '$(O_FILES)',
-          'dist'                => {
-          COMPRESS      => 'gzip -9f',
-          SUFFIX        => 'gz',
-          DIST_DEFAULT => 'all tardist',
-          },
-          @man,
-          INC       => "-I./Encode",
-          PMLIBDIRS => \@pmlibdirs,
-          INSTALLDIRS => 'perl',
-          );
+    NAME         => "Encode",
+    EXE_FILES    => \@exe_files,
+    VERSION_FROM => 'Encode.pm',
+    OBJECT       => '$(O_FILES)',
+    'dist'       => {
+        COMPRESS     => 'gzip -9f',
+        SUFFIX       => 'gz',
+        DIST_DEFAULT => 'all tardist',
+    },
+    @man,
+    INC         => '-I' . File::Spec->catfile( '.', 'Encode' ),
+    PMLIBDIRS   => \@pmlibdirs,
+    INSTALLDIRS => 'perl',
+);
 
 package MY;

lang/perl/Encode/trunk/lib/Encode/Alias.pm

@@ -3 +3 @@
 use warnings;
 no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 sub DEBUG () { 0 }
 
@@ -208 +208 @@
     # define_alias( qr/\bmacIcelandic$/i => '"macIceland"');
     define_alias( qr/^mac_(.*)$/i => '"mac$1"' );
+    # http://rt.cpan.org/Ticket/Display.html?id=36326
+    define_alias( qr/^macintosh$/i => '"MacRoman"' );
 
     # Ououououou. gone.  They are differente!

lang/perl/Encode/trunk/lib/Encode/GSM0338.pm

@@ -1 +1 @@
 #
-# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp $
 #
 package Encode::GSM0338;

lang/perl/Encode/trunk/lib/Encode/JP/JIS7.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
 use Encode qw(:fallbacks);
@@ -131 +131 @@
 sub euc_jis {
     no warnings qw(uninitialized);
+    local ${^ENCODING};
     my $r_str   = shift;
     my $jis0212 = shift;

lang/perl/Encode/trunk/t/Aliases.t

@@ -53 +53 @@
         'WinBaltic'     => 'cp1257',
         'WinVietnamese' => 'cp1258',
+        'Macintosh'     => 'MacRoman',
         'koi8r'         => 'koi8-r',
         'koi8u'         => 'koi8-u',

lang/perl/Encode/trunk/ucm/cp850.ucm

@@ -1 +1 @@
 #
-# $Id: cp850.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp850.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp852.ucm

@@ -1 +1 @@
 #
-# $Id: cp852.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp852.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp855.ucm

@@ -1 +1 @@
 #
-# $Id: cp855.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp855.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp856.ucm

@@ -1 +1 @@
 #
-# $Id: cp856.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp856.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp857.ucm

@@ -1 +1 @@
 #
-# $Id: cp857.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp857.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp858.ucm

@@ -1 +1 @@
 #
-# $Id: cp858.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp858.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # cf. http://en.wikipedia.org/wiki/Code_page_858

lang/perl/Encode/trunk/ucm/cp860.ucm

@@ -1 +1 @@
 #
-# $Id: cp860.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp860.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp861.ucm

@@ -1 +1 @@
 #
-# $Id: cp861.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp861.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp862.ucm

@@ -1 +1 @@
 #
-# $Id: cp862.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp862.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp863.ucm

@@ -1 +1 @@
 #
-# $Id: cp863.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp863.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp864.ucm

@@ -1 +1 @@
 #
-# $Id: cp864.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp864.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp865.ucm

@@ -1 +1 @@
 #
-# $Id: cp865.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp865.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp866.ucm

@@ -1 +1 @@
 #
-# $Id: cp866.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp866.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp869.ucm

@@ -1 +1 @@
 #
-# $Id: cp869.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp869.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp874.ucm

@@ -1 +1 @@
 #
-# $Id: cp874.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp874.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at

lang/perl/Encode/trunk/ucm/cp875.ucm

@@ -1 +1 @@
 #
-# $Id: cp875.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: cp875.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
 #
 # Original table can be obtained at