Change 18598: Integrate from maint-5.8:

[Rafael Garcia-Suarez]

Change 18598 by rgs@rgs-home on 2003/01/28 20:43:02

        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.

Affected files ...

... //depot/perl/hints/aix.sh#87 integrate
... //depot/perl/pod/perlguts.pod#112 integrate
... //depot/perl/t/op/pat.t#186 integrate

Differences ...

==== //depot/perl/hints/aix.sh#87 (text) ====
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#86~18283~ Wed Dec 11 02:18:07 2002
+++ perl/hints/aix.sh   Tue Jan 28 12:43:02 2003
@@ -275,7 +275,8 @@
        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'

==== //depot/perl/pod/perlguts.pod#112 (text) ====
Index: perl/pod/perlguts.pod
--- perl/pod/perlguts.pod#111~18280~    Tue Dec 10 13:30:10 2002
+++ perl/pod/perlguts.pod       Tue Jan 28 12:43:02 2003
@@ -964,6 +964,7 @@
     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

==== //depot/perl/t/op/pat.t#186 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#185~18299~  Thu Dec 12 12:35:29 2002
+++ perl/t/op/pat.t     Tue Jan 28 12:43:02 2003
@@ -3032,8 +3032,8 @@
     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 @@
     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
End of Patch.