Changeset 11260

Show
Ignore:
Timestamp:
05/08/08 06:01:24 (5 years ago)
Author:
dankogai
Message:

Encode-2.25 Released!

Location:
lang/perl/Encode/trunk
Files:
22 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode/trunk/Changes

    r11259 r11260  
    11# Revision history for Perl extension Encode. 
    22# 
    3 # $Id: Changes,v 2.24 2008/03/12 09:51:11 dankogai Exp $ 
     3# $Id: Changes,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    44# 
    5 $Revision: 2.24 $ $Date: 2008/03/12 09:51:11 $ 
     5$Revision: 2.25 $ $Date: 2008/05/07 20:56:05 $ 
    66! Encode.pm 
    77  added ':default' to Exporter option. 
     8! lib/Encode/GSM0338.pm 
     9  GSM0338 now handles coderef in CHECK 
     10  http://rt.cpan.org/Ticket/Display.html?id=31335 
    811! Makefile.PL 
    912  Perl 5.10/Encode 2.24: Tiny typo in Encode's Makefile.PL arg processing 
    … …  
    1316  Message-ID: <47D886D9.6060001@iki.fi> 
    1417 
    15 $Revision: 2.24 $ $Date: 2008/03/12 09:51:11 $ 
     18$Revision: 2.25 $ $Date: 2008/05/07 20:56:05 $ 
    1619! lib/Encode/Config.pm 
    1720  adds and  fixes also adds cp858 support. 

  • lang/perl/Encode/trunk/Encode.pm

    r11259 r11260  
    11# 
    2 # $Id: Encode.pm,v 2.24 2008/03/12 09:58:12 dankogai Exp dankogai $ 
     2# $Id: Encode.pm,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44package Encode; 
    55use strict; 
    66use warnings; 
    7 our $VERSION = sprintf "%d.%02d", q$Revision: 2.24 $ =~ /(\d+)/g; 
     7our $VERSION = sprintf "%d.%02d", q$Revision: 2.25 $ =~ /(\d+)/g; 
    88sub DEBUG () { 0 } 
    99use XSLoader (); 

  • lang/perl/Encode/trunk/Makefile.PL

    r11258 r11260  
    11# 
    2 # $Id: Makefile.PL,v 2.5 2007/05/29 18:15:32 dankogai Exp $ 
     2# $Id: Makefile.PL,v 2.6 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44use 5.007003; 

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

    r9381 r11260  
    33use warnings; 
    44no warnings 'redefine'; 
    5 our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
     5our $VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
    66sub DEBUG () { 0 } 
    77 

  • lang/perl/Encode/trunk/lib/Encode/CN/HZ.pm

    r1747 r11260  
    33use strict; 
    44use warnings; 
     5use utf8 (); 
    56 
    67use vars qw($VERSION); 
    7 $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
     8$VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
    89 
    910use Encode qw(:fallbacks); 
    … …  
    184185        $in_ascii = 1; 
    185186    } 
     187    utf8::encode($ret); # https://rt.cpan.org/Ticket/Display.html?id=35120 
    186188    return $ret; 
    187189} 

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

    r1747 r11260  
    11# 
    2 # $Id: GSM0338.pm,v 2.0 2007/04/22 14:54:22 dankogai Exp $ 
     2# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44package Encode::GSM0338; 
    … …  
    99 
    1010use vars qw($VERSION); 
    11 $VERSION = do { my @r = ( q$Revision: 2.0 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
     11$VERSION = do { my @r = ( q$Revision: 2.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; 
    1212 
    1313use Encode qw(:fallbacks); 
    … …  
    199199        else { 
    200200            $u = 
    201               exists $GSM2UNI{$c} ? $GSM2UNI{$c} 
    202               : $chk 
    203               ? croak sprintf( "\\x%02X does not map to Unicode", ord($c) ) 
     201              exists $GSM2UNI{$c} 
     202              ? $GSM2UNI{$c} 
     203              : $chk ? ref $chk eq 'CODE' 
     204                  ? $chk->( ord $c ) 
     205                  : croak sprintf( "\\x%02X does not map to Unicode", ord($c) ) 
    204206              : $FBCHAR; 
    205207        } 
    … …  
    219221        my $c; 
    220222        $bytes .= 
    221           exists $UNI2GSM{$u} ? $UNI2GSM{$u} 
    222           : $chk 
    223           ? croak sprintf( "\\x{%04x} does not map to %s",  
    224                            ord($u), $obj->name ) 
     223          exists $UNI2GSM{$u} 
     224          ? $UNI2GSM{$u} 
     225          : $chk ? ref $chk eq 'CODE' 
     226              ? $chk->( ord($u) ) 
     227              : croak sprintf( "\\x{%04x} does not map to %s",  
     228                               ord($u), $obj->name ) 
    225229          : $FBCHAR; 
    226230    } 

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

    r1747 r11260  
    11# 
    2 # $Id: cp850.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp850.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp852.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp852.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp855.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp855.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp856.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp856.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp857.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp857.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r7855 r11260  
    11# 
    2 # $Id: cp858.ucm,v 1.1 2008/03/12 09:51:11 dankogai Exp $ 
     2# $Id: cp858.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# cf. http://en.wikipedia.org/wiki/Code_page_858 

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

    r1747 r11260  
    11# 
    2 # $Id: cp860.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp860.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp861.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp861.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp862.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp862.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp863.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp863.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp864.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp864.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp865.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp865.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp866.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp866.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp869.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp869.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp874.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp874.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at 

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

    r1747 r11260  
    11# 
    2 # $Id: cp875.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $ 
     2# $Id: cp875.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $ 
    33# 
    44# Original table can be obtained at