diff options
Diffstat (limited to 'ext/Encode')
-rw-r--r-- | ext/Encode/Encode.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 20843545da..8a9cc009ed 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -243,16 +243,19 @@ sub getEncoding { return $encoding{$lc}; } + + my $oc = $class->findAlias($name); + return $oc if defined $oc; + + $oc = $class->findAlias($lc) if $lc ne $name; + return $oc if defined $oc; + if (exists $external_tables{$lc}) { require $external_tables{$lc}; return $encoding{$name} if exists $encoding{$name}; } - my $oc = $class->findAlias($name); - return $oc if defined $oc; - return $class->findAlias($lc) if $lc ne $name; - return; } |