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