diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-12 18:42:35 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 03:20:13 +0000 |
| commit | 8ada0baa1f731edbe470a7630cfeb30c131b4672 (patch) | |
| tree | 878d7ca51320e5fb9ab9f95b0c13c54031deddad /t/pragma | |
| parent | 4beedc23b598a493399ba23c8c4bd5448e52283a (diff) | |
| download | perl-8ada0baa1f731edbe470a7630cfeb30c131b4672.tar.gz | |
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
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 6 |
1 files changed, 5 insertions, 1 deletions
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 <h.b.furuseth@usit.uio.no> # for inventing a way to test for ordering consistency # without requiring any particular order. -# ++$jhi;#@iki.fi +# <jhi@iki.fi> print "# testing 103\n"; { |