Change 33562 by [EMAIL PROTECTED] on 2008/03/25 11:06:25
Subject: "646"
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Date: Wed, 12 Mar 2008 21:43:53 -0400
Message-ID: <[EMAIL PROTECTED]>
Encode::Alias fix for encoding "646" (aka ASCII) on Solaris
Affected files ...
... //depot/perl/ext/Encode/lib/Encode/Alias.pm#43 edit
Differences ...
==== //depot/perl/ext/Encode/lib/Encode/Alias.pm#43 (text) ====
Index: perl/ext/Encode/lib/Encode/Alias.pm
--- perl/ext/Encode/lib/Encode/Alias.pm#42~33493~ 2008-03-12
07:20:49.000000000 -0700
+++ perl/ext/Encode/lib/Encode/Alias.pm 2008-03-25 04:06:25.000000000 -0700
@@ -2,7 +2,7 @@
use strict;
use warnings;
no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+our $VERSION = '2.8_01';# do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g );
sprintf "%d." . "%02d" x $#r, @r };
sub DEBUG () { 0 }
use base qw(Exporter);
@@ -151,7 +151,7 @@
# ASCII
define_alias( qr/^(?:US-?)ascii$/i => '"ascii"' );
define_alias( 'C' => 'ascii' );
- define_alias( qr/\bISO[-_]?646[-_]?US$/i => '"ascii"' );
+ define_alias( qr/\b(?:ISO[-_]?)?646(?:[-_]?US)?$/i => '"ascii"' );
# Allow variants of iso-8859-1 etc.
define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' );
End of Patch.
