From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 8 Dec 2013 15:20:58 +0000 (-0700)
Subject: Silence core test Useless use of greediness modifier
X-Git-Tag: upstream/5.20.0~1026
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=99dd98225733b6b66a524dfeb20a486e012e39b3;p=platform%2Fupstream%2Fperl.git

Silence core test Useless use of greediness modifier

There are two .t files that have useless greediness modifiers.  A
warning was instroduced in commit
4fa6dd16d2149c2aeeb32633e3a796d5ebc5b657 when this occurs.  This
silences those warnings in the two .t files
---

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 6329683..fe53496 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -2256,6 +2256,7 @@ EOP
 
     {
         #' RT #119075
+        no warnings 'regexp';
         local $@;
         eval { /a{0}?/; };
         ok(! $@,
diff --git a/t/re/pat_psycho.t b/t/re/pat_psycho.t
index 0433760..82ea4da 100644
--- a/t/re/pat_psycho.t
+++ b/t/re/pat_psycho.t
@@ -67,6 +67,7 @@ sub run_tests {
         # CURLYX and WHILEM blocks, except those related to LONGJMP, the
         # super-linear cache and warnings. It executes about 0.5M regexes
 
+        no warnings 'regexp';   # Silence has useless greediness modifier
         my $r = qr/^
                     (?:
                         ( (?:a|z+)+ )
@@ -99,6 +100,7 @@ sub run_tests {
                     )*
                     ( (?:l|z+)+ )
               $/x;
+        use warnings 'regexp';
           
         my $ok = 1;
         my $msg = "CURLYX stress test";