In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/923e23bad0514e1bd29112650fb78aa4ea69e1b7?hp=27b4ba23e0a765dcb0c320a5bd4590c45aad6820>

- Log -----------------------------------------------------------------
commit 923e23bad0514e1bd29112650fb78aa4ea69e1b7
Author: Yves Orton <demer...@gmail.com>
Date:   Sat Jan 28 15:13:17 2017 +0100

    silence warnings from tests about impossible quantifiers
    
    thanks to Dave M for noticing....
-----------------------------------------------------------------------

Summary of changes:
 t/re/pat_rt_report.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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");
     }

--
Perl5 Master Repository

Reply via email to