Fix thinko in t/pragma/locale.t:

	Subject: [PATCH] _04 or _56: locale.t

p4raw-id: //depot/perl@410

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 8e296db8a7c927a29e84e21b2d241dc9a37aa11e..d068465fb34a62e7dbeb8e71caa2dc19a623d823 100755 (executable)
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -283,13 +283,13 @@ locatelocale(\$Spanish, \@Spanish,
 # Select the largest of the alpha(num)bets.
 
 ($Locale, @Locale) = ($English, @English)
-    if (length(@English) > length(@Locale));
+    if (@English > @Locale);
 ($Locale, @Locale) = ($German, @German)
-    if (length(@German)  > length(@Locale));
+    if (@German  > @Locale);
 ($Locale, @Locale) = ($French, @French)
-    if (length(@French)  > length(@Locale));
+    if (@French  > @Locale);
 ($Locale, @Locale) = ($Spanish, @Spanish)
-    if (length(@Spanish) > length(@Locale));
+    if (@Spanish > @Locale);
 
 print "# Locale = $Locale\n";
 print "# Alnum_ = @Locale\n";