From 545c8fcc728233d7cb0aa3a09282862571bb953e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 5 Jan 1998 01:48:44 +0200
Subject: [PATCH] Fix thinko in t/pragma/locale.t: 	Subject: [PATCH] _04
 or _56: locale.t

p4raw-id: //depot/perl@410
---
 t/pragma/locale.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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";
-- 
2.7.4