This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re.t: Suppress warning
authorKarl Williamson <public@khwilliamson.com>
Wed, 29 Sep 2010 16:46:02 +0000 (10:46 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 29 Sep 2010 19:53:08 +0000 (12:53 -0700)
t/re/re.t

index ecbcb29..f1002fa 100644 (file)
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -61,6 +61,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
 
         # Bug #78058; this can loop
         watchdog(2);
+        no warnings;    # Because the 8 may be warned on
         eval 'qr/\18/';
         pass("qr/\18/ didn't loop");
     }