diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-28 20:43:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-28 20:43:02 +0000 |
| commit | 836995da690e86dfede4be5cd8215cfceaeda197 (patch) | |
| tree | f4ea1741bec35caef8370bbebd862bbc871e86bc | |
| parent | 58ca468a076a9e91a1ca3aba10707505636900e4 (diff) | |
| download | perl-836995da690e86dfede4be5cd8215cfceaeda197.tar.gz | |
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..)
| -rw-r--r-- | hints/aix.sh | 3 | ||||
| -rw-r--r-- | pod/perlguts.pod | 1 | ||||
| -rwxr-xr-x | t/op/pat.t | 8 |
3 files changed, 7 insertions, 5 deletions
diff --git a/hints/aix.sh b/hints/aix.sh index 5a10cf8511..7dffde24a7 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 39f23929a3..61e93d78ba 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 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 |