Blob Blame History Raw
From 923e23bad0514e1bd29112650fb78aa4ea69e1b7 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Sat, 28 Jan 2017 15:13:17 +0100
Subject: [PATCH] silence warnings from tests about impossible quantifiers
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

thanks to Dave M for noticing....

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 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 21aff58..dd740e7 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");
     }
-- 
2.7.4