Blame SOURCES/perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch
|
|
dcb3b7 |
From 923e23bad0514e1bd29112650fb78aa4ea69e1b7 Mon Sep 17 00:00:00 2001
|
|
|
dcb3b7 |
From: Yves Orton <demerphq@gmail.com>
|
|
|
dcb3b7 |
Date: Sat, 28 Jan 2017 15:13:17 +0100
|
|
|
dcb3b7 |
Subject: [PATCH] silence warnings from tests about impossible quantifiers
|
|
|
dcb3b7 |
MIME-Version: 1.0
|
|
|
dcb3b7 |
Content-Type: text/plain; charset=UTF-8
|
|
|
dcb3b7 |
Content-Transfer-Encoding: 8bit
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
thanks to Dave M for noticing....
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
dcb3b7 |
---
|
|
|
dcb3b7 |
t/re/pat_rt_report.t | 3 ++-
|
|
|
dcb3b7 |
1 file changed, 2 insertions(+), 1 deletion(-)
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
|
|
|
dcb3b7 |
index 21aff58..dd740e7 100644
|
|
|
dcb3b7 |
--- a/t/re/pat_rt_report.t
|
|
|
dcb3b7 |
+++ b/t/re/pat_rt_report.t
|
|
|
dcb3b7 |
@@ -1134,9 +1134,10 @@ EOP
|
|
|
dcb3b7 |
{
|
|
|
dcb3b7 |
# rt
|
|
|
dcb3b7 |
fresh_perl_is(
|
|
|
dcb3b7 |
- '"foo"=~/((?1)){8,0}/; print "ok"',
|
|
|
dcb3b7 |
+ 'no warnings "regexp"; "foo"=~/((?1)){8,0}/; print "ok"',
|
|
|
dcb3b7 |
"ok", {}, 'RT #130561 - allowing impossible quantifier should not cause SEGVs');
|
|
|
dcb3b7 |
my $s= "foo";
|
|
|
dcb3b7 |
+ no warnings 'regexp';
|
|
|
dcb3b7 |
ok($s=~/(foo){1,0}|(?1)/,
|
|
|
dcb3b7 |
"RT #130561 - allowing impossible quantifier should not break recursion");
|
|
|
dcb3b7 |
}
|
|
|
dcb3b7 |
--
|
|
|
dcb3b7 |
2.7.4
|
|
|
dcb3b7 |
|