Change 15181 by ams@lustre on 2002/03/12 03:09:20
Subject: Re: ext/Encode/t/Tcl.t on VMS @15173
From: Autrijus Tang <[EMAIL PROTECTED]>
Date: Tue, 12 Mar 2002 11:55:06 +0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Encode/Encode.pm#68 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.pm#68 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Mon Mar 11 20:15:05 2002
+++ perl/ext/Encode/Encode.pm Mon Mar 11 20:15:05 2002
@@ -243,16 +243,19 @@
{
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;
}
End of Patch.
