From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 28 Jan 2003 20:43:02 +0000 (+0000)
Subject: Integrate from maint-5.8:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=836995da690e86dfede4be5cd8215cfceaeda197;p=p5sagit%2Fp5-mst-13.2.git

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