diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-01-05 01:48:44 +0200 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-01-08 16:06:22 +0000 |
| commit | 545c8fcc728233d7cb0aa3a09282862571bb953e (patch) | |
| tree | 403fb60c356c55abee0eb783b064d34ca0d5754b /t/pragma | |
| parent | 745d3a658405306100940409ae1da6ba855fedfe (diff) | |
| download | perl-545c8fcc728233d7cb0aa3a09282862571bb953e.tar.gz | |
Fix thinko in t/pragma/locale.t:
Subject: [PATCH] _04 or _56: locale.t
p4raw-id: //depot/perl@410
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 8e296db8a7..d068465fb3 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"; |