This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Upgrade to Encode 2.0902
[perl5.git]
/
ext
/
Encode
/
lib
/
Encode
/
Alias.pm
diff --git
a/ext/Encode/lib/Encode/Alias.pm
b/ext/Encode/lib/Encode/Alias.pm
index
a1cc253
..
f9bc3fe
100644
(file)
--- a/
ext/Encode/lib/Encode/Alias.pm
+++ b/
ext/Encode/lib/Encode/Alias.pm
@@
-187,7
+187,6
@@
sub init_aliases
# define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
# Standardize on the dashed versions.
# define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
# Standardize on the dashed versions.
- # define_alias( qr/\butf8$/i => '"utf-8"' );
define_alias( qr/\bkoi8[\s\-_]*([ru])$/i => '"koi8-$1"' );
unless ($Encode::ON_EBCDIC){
define_alias( qr/\bkoi8[\s\-_]*([ru])$/i => '"koi8-$1"' );
unless ($Encode::ON_EBCDIC){
@@
-222,7
+221,7
@@
sub init_aliases
define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
}
# utf8 is blessed :)
define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
}
# utf8 is blessed :)
- define_alias( qr/^UTF-8$/i => '"utf
8"',
);
+ define_alias( qr/^UTF-8$/i => '"utf
-8-strict"'
);
# At last, Map white space and _ to '-'
define_alias( qr/^(\S+)[\s_]+(.*)$/i => '"$1-$2"' );
}
# At last, Map white space and _ to '-'
define_alias( qr/^(\S+)[\s_]+(.*)$/i => '"$1-$2"' );
}