From 99dd98225733b6b66a524dfeb20a486e012e39b3 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 8 Dec 2013 08:20:58 -0700
Subject: [PATCH] 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
---
 t/re/pat_advanced.t | 1 +
 t/re/pat_psycho.t   | 2 ++
 2 files changed, 3 insertions(+)

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";
-- 
2.7.4