From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 5 Mar 2001 17:41:48 +0000 (+0000)
Subject: Add more ISO 8859 encoding aliases.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ba17844711e70508f4b318e01f671a1490f6987;p=p5sagit%2Fp5-mst-13.2.git

Add more ISO 8859 encoding aliases.

p4raw-id: //depot/perl@9041
---

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index 38c30ad..e1996e8 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -96,7 +96,8 @@ sub define_alias
   }
 }
 
-define_alias( qr/^iso(\d+-\d+)$/i => '"iso-$1"' );
+define_alias( qr/^iso\W?(\d+)\W(\d+)$/i => '"iso-$1-$2"' );
+define_alias( qr/^(?:iso\W?)?(?:8859|latin)\W(\d+)$/i => '"iso-8859-$1"' );
 define_alias( qr/^(\S+)\s+(.*)$/i => '"$1-$2"' );
 #define_alias( sub { return /^iso-(\d+-\d+)$/i  ? "iso$1" : '' } );
 define_alias( 'ascii' => 'US-ascii');