diff options
| author | Yves Orton <demerphq@gmail.com> | 2017-01-28 15:13:17 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2017-01-28 15:13:42 +0100 |
| commit | 923e23bad0514e1bd29112650fb78aa4ea69e1b7 (patch) | |
| tree | 881387e8180093922d10d28c5587c326ba28c18b /t | |
| parent | 27b4ba23e0a765dcb0c320a5bd4590c45aad6820 (diff) | |
| download | perl-923e23bad0514e1bd29112650fb78aa4ea69e1b7.tar.gz | |
silence warnings from tests about impossible quantifiers
thanks to Dave M for noticing....
Diffstat (limited to 't')
| -rw-r--r-- | t/re/pat_rt_report.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t index 21aff589bb..dd740e713b 100644 --- a/t/re/pat_rt_report.t +++ b/t/re/pat_rt_report.t @@ -1134,9 +1134,10 @@ EOP { # rt fresh_perl_is( - '"foo"=~/((?1)){8,0}/; print "ok"', + 'no warnings "regexp"; "foo"=~/((?1)){8,0}/; print "ok"', "ok", {}, 'RT #130561 - allowing impossible quantifier should not cause SEGVs'); my $s= "foo"; + no warnings 'regexp'; ok($s=~/(foo){1,0}|(?1)/, "RT #130561 - allowing impossible quantifier should not break recursion"); } |