diff options
| author | Audrey Tang <cpan@audreyt.org> | 2002-03-12 19:55:06 +0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-12 03:09:20 +0000 |
| commit | c50d192ebfcac758664afb26241ba25b35ed0977 (patch) | |
| tree | b71fe782a0b9cc22c936023f92609462a38946b7 /ext/Encode | |
| parent | 881bdbd4cff2623b5a5979fcc7b7c3078938e0fd (diff) | |
| download | perl-c50d192ebfcac758664afb26241ba25b35ed0977.tar.gz | |
Re: ext/Encode/t/Tcl.t on VMS @15173
Message-Id: <20020312035506.GA6946@not.autrijus.org>
p4raw-link: @15173 on //depot/perl: 2a3d532f608c7c5e0c317bfba640d088125b93a3
p4raw-id: //depot/perl@15181
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; } |