From 8ada0baa1f731edbe470a7630cfeb30c131b4672 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 12 Aug 1998 18:42:35 +0300 Subject: apply minimal variant of patch (sent via private mail) Message-Id: <199808121242.PAA29761@comanche.spices> Subject: [PATCH] 5.004_02 or 5.005_51: fix regexp and tr character ranges in non-ASCII lands p4raw-id: //depot/perl@1803 --- t/pragma/locale.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 00baa6645e..7e3df8c3f1 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -23,6 +23,9 @@ eval { # and mingw32 uses said silly CRT $have_setlocale = 0 if $^O eq 'MSWin32' && $Config{cc} =~ /^(cl|gcc)/i; +# 103 (the last test) may fail but that is okay. +# (It indicates something broken in the environment, not Perl) +# Therefore .. only until 102, not 103. print "1..", ($have_setlocale ? 102 : 98), "\n"; use vars qw($a @@ -404,6 +407,7 @@ print "ok 101\n"; # Test for read-onlys. +print "# testing 102\n"; { no locale; $a = "qwerty"; @@ -419,7 +423,7 @@ print "ok 102\n"; # Thanks to Hallvard Furuseth # for inventing a way to test for ordering consistency # without requiring any particular order. -# ++$jhi;#@iki.fi +# print "# testing 103\n"; { -- cgit v1.2.1