diff options
author | David Mitchell <davem@iabyn.com> | 2013-07-30 20:14:37 +0100 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2013-11-19 21:51:03 -0500 |
commit | d126b76cd9637415e48b1322a2b11496dd4f6898 (patch) | |
tree | 6b0c25063f043c199c983ca88600547533d2dc77 | |
parent | b4d6b02cbb024f98a4cb46408c247f6b625b7071 (diff) | |
download | perl-d126b76cd9637415e48b1322a2b11496dd4f6898.tar.gz |
Disable new //p tests
The previous commit fixed a regression in 5.18.0:
my $pat = qr/a/;
'aaaa' =~ /$pat/gp or die;
print "MATCH=[${^MATCH}]\n";
which printed 'a' in 5.16.0, and undef in 5.18.0.
5.18.0 only broke the /g behaviour; the non-/g variant was already broken
and the previous commit didn't fix that for maint.
The new tests are testing for the non-/g variant, which still fail, so
disable these tests.
(Getting it to capture under non-/g works in 5.19.2 due to a major
reorganisation of the pp_match/pp_subst/regexec() code, which isn't
suitable for backporting to maint-5.18.)
-rw-r--r-- | t/re/reg_pmod.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/re/reg_pmod.t b/t/re/reg_pmod.t index 1db0bed3f6..106c0dcf3e 100644 --- a/t/re/reg_pmod.t +++ b/t/re/reg_pmod.t @@ -12,7 +12,8 @@ use warnings; our @tests = ( # /p Pattern PRE MATCH POST [ '/p', "345", "012-", "345", "-6789"], - [ '/$r/p',"345", "012-", "345", "-6789"], + # these not supported under 5.18.x + #[ '/$r/p',"345", "012-", "345", "-6789"], [ '(?p)', "345", "012-", "345", "-6789"], [ '(?p:)',"345", "012-", "345", "-6789"], [ '', "(345)", undef, undef, undef ], |