From: Audrey Tang <cpan@audreyt.org>
Date: Tue, 12 Mar 2002 11:55:06 +0000 (+0800)
Subject: Re: ext/Encode/t/Tcl.t on VMS @15173
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c50d192ebfcac758664afb26241ba25b35ed0977;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index 2084354..8a9cc00 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;
 }