Integrate from maint-5.8:

Change 18450 :
  Tiny output tweak.
Change 18429 :
  AIX gcc (2.9) threaded build tweak (without the _THREAD_SAFE
  things like drand48_data are undefined).
Change 18388 :
  List the PERL_MAGIC_utf8 ('w') flag.

p4raw-id: //depot/perl@18598
p4raw-integrated: from //depot/maint-5.8/perl@18597 'copy in'
	hints/aix.sh (@18286..) t/op/pat.t (@18290..) pod/perlguts.pod
	(@18387..)

1 files changed, 4 insertions, 4 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 62520dda6b..16212767b7 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -3032,8 +3032,8 @@ print "\x{072F}" =~ /\P{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++;
     ok($a =~ /^\C\Cy/,     'match two \C');
     ok($a =~ /^\C{2}y/,    'match \C{2}');
 
-    ok($a !~ /^\C\C\Cy/,    'not match three \Cy');
-    ok($a !~ /^\C{2}\Cy/,   'not match \C{3}y');
+    ok($a !~ /^\C\C\Cy/,    q{don't match three \Cy});
+    ok($a !~ /^\C{2}\Cy/,   q{don't match \C{3}y});
 
     $a = "\x{1000}y"; # 3 bytes before "y"
 
@@ -3050,8 +3050,8 @@ print "\x{072F}" =~ /\P{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++;
     ok($a =~ /^\C\C\Cy/,    'match three \Cy');
     ok($a =~ /^\C{3}y/,     'match \C{3}y');
 
-    ok($a !~ /^\C\C\C\C\y/, 'not match four \Cy');
-    ok($a !~ /^\C{4}y/,     'not match \C{4}y');
+    ok($a !~ /^\C\C\C\C\y/, q{don't match four \Cy});
+    ok($a !~ /^\C{4}y/,     q{don't match \C{4}y});
 }
 
 # last test 968