diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-02-09 21:47:22 +0200 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-12 16:22:46 +0000 |
| commit | 4599a1dedd47b916c731b88cf14b8b7a145a28b0 (patch) | |
| tree | 4a726863ff896ab939e8e21a3d0e4a9a0af0003d /t/pragma | |
| parent | 0018b59d6c770680881f484bcbc39fc8d4a15036 (diff) | |
| download | perl-4599a1dedd47b916c731b88cf14b8b7a145a28b0.tar.gz | |
[PATCH] 5.004_58: the locale.t problem in IRIX
Date: Mon, 9 Feb 1998 19:47:22 +0200 (EET)
Subject: [PATCH] 5.004_58: reserve the POSIX regexp extensions
Date: Tue, 10 Feb 1998 15:12:12 +0200 (EET)
Subject: [PATCH] 5.004_58: <netdb.h> API prototype probing
Date: Wed, 11 Feb 1998 12:50:35 +0200 (EET)
p4raw-id: //depot/perl@504
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index d068465fb3..8875f7caa6 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -291,14 +291,18 @@ locatelocale(\$Spanish, \@Spanish, ($Locale, @Locale) = ($Spanish, @Spanish) if (@Spanish > @Locale); -print "# Locale = $Locale\n"; -print "# Alnum_ = @Locale\n"; - { local $^W = 0; setlocale(&LC_ALL, $Locale); } +# Sort it now that LC_ALL has been set. + +@Locale = sort @Locale; + +print "# Locale = $Locale\n"; +print "# Alnum_ = @Locale\n"; + { my $i = 0; |