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..)

diff --git a/hints/aix.sh b/hints/aix.sh
index 5a10cf8..7dffde2 100644 (file)
--- a/hints/aix.sh
+++ b/hints/aix.sh
@@ -275,7 +275,8 @@ $define|true|[yY]*)
        ccflags="$ccflags -DNEED_PTHREAD_INIT"
        case "$cc" in
        *gcc*)
-echo "GCC $gccversion disabling some _r functions" >&4
+           ccflags="-D_THREAD_SAFE $ccflags"
+           echo "GCC $gccversion disabling some _r functions" >&4
            case "$gccversion" in
                3*) d_drand48_r='undef'
                    d_endgrent_r='undef'

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 39f2392..61e93d7 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -964,6 +964,7 @@ The current kinds of Magic Virtual Tables are:
     U  PERL_MAGIC_uvar           vtbl_uvar      Available for use by extensions
     v  PERL_MAGIC_vec            vtbl_vec       vec() lvalue
     V  PERL_MAGIC_vstring        (none)         v-string scalars
+    w  PERL_MAGIC_utf8           vtbl_utf8      UTF-8 length+offset cache
     x  PERL_MAGIC_substr         vtbl_substr    substr() lvalue
     y  PERL_MAGIC_defelem        vtbl_defelem   Shadow "foreach" iterator
                                                variable / smart parameter

diff --git a/t/op/pat.t b/t/op/pat.t
index 62520dd..1621276 100755 (executable)
--- 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