diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-05 17:41:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-05 17:41:48 +0000 |
| commit | 8ba17844711e70508f4b318e01f671a1490f6987 (patch) | |
| tree | ff0cbfd64f97946deb8f20d387fb38c295c051c4 /ext/Encode | |
| parent | aded372cd39ccb7d6a5ed544b220a89af6d2e7c2 (diff) | |
| download | perl-8ba17844711e70508f4b318e01f671a1490f6987.tar.gz | |
Add more ISO 8859 encoding aliases.
p4raw-id: //depot/perl@9041
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/Encode.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 38c30ad1ba..e1996e8f2e 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'); |