From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 4 Jan 1998 23:48:44 +0000 (+0200)
Subject: Fix thinko in t/pragma/locale.t:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=545c8fcc728233d7cb0aa3a09282862571bb953e;p=p5sagit%2Fp5-mst-13.2.git

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 8e296db..d068465 100755
--- 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";