From: Nicholas Clark Date: Thu, 1 Feb 2007 16:49:12 +0000 (+0000) Subject: Make t/op/regexp.t warnings clean. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66fb63c110722b9a2b418e951a2e9c40079471b8;p=p5sagit%2Fp5-mst-13.2.git Make t/op/regexp.t warnings clean. p4raw-id: //depot/perl@30089 --- 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 () { 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 }