From 66fb63c110722b9a2b418e951a2e9c40079471b8 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 1 Feb 2007 16:49:12 +0000
Subject: [PATCH] Make t/op/regexp.t warnings clean.

p4raw-id: //depot/perl@30089
---
 t/op/regexp.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/t/op/regexp.t b/t/op/regexp.t
index f416f29..d011173 100755
--- a/t/op/regexp.t
+++ b/t/op/regexp.t
@@ -42,6 +42,7 @@ BEGIN {
     @INC = '../lib';
 }
 use strict;
+use warnings FATAL=>"all";
 use vars qw($iters $numtests $bang $ffff $nulnul $OP);
 use vars qw($qr $skip_amp $qr_embed); # set by our callers
 
@@ -72,6 +73,7 @@ while (<TESTS>) {
     chomp;
     s/\\n/\n/g;
     my ($pat, $subject, $result, $repl, $expect, $reason) = split(/\t/,$_,6);
+    $reason = '' unless defined $reason;
     my $input = join(':',$pat,$subject,$result,$repl,$expect);
     $pat = "'$pat'" unless $pat =~ /^[:'\/]/;
     $pat =~ s/(\$\{\w+\})/$1/eeg;
@@ -109,7 +111,13 @@ EOFCODE
                 \$got = "$repl";
 EOFCODE
         }
-        eval $code;
+	{
+	    # Probably we should annotate specific tests with which warnings
+	    # categories they're known to trigger, and hence should be
+	    # disabled just for that test
+	    no warnings qw(uninitialized regexp);
+	    eval $code;
+	}
 	chomp( my $err = $@ );
 	if ($result eq 'c') {
 	    if ($err !~ m!^\Q$expect!) { print "not ok $. (compile) $input => `$err'\n"; next TEST }
-- 
1.8.3.1