Silence core test Useless use of greediness modifier
authorKarl Williamson <public@khwilliamson.com>
Sun, 8 Dec 2013 15:20:58 +0000 (08:20 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 8 Dec 2013 15:40:28 +0000 (08:40 -0700)
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
t/re/pat_psycho.t

index 6329683..fe53496 100644 (file)
@@ -2256,6 +2256,7 @@ EOP
 
     {
         #' RT #119075
+        no warnings 'regexp';
         local $@;
         eval { /a{0}?/; };
         ok(! $@,
index 0433760..82ea4da 100644 (file)
@@ -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";