X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Flocale.t;h=7e3df8c3f118cb277fbf50017e0cfc3efd1be1a7;hb=c6e96bcb406bc8b8d8610606459ff606ad6883aa;hp=00baa6645e3a8bfde967b3f05e6cabd1267cf889;hpb=f6c6487a7fbe3f34af46c7923fc905a118aaf302;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 00baa66..7e3df8c 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";
 {