Change 30089: Make t/op/regexp.t warnings clean.

[Nicholas Clark]

Change 30089 by [EMAIL PROTECTED] on 2007/02/01 16:49:12

        Make t/op/regexp.t warnings clean.

Affected files ...

... //depot/perl/t/op/regexp.t#41 edit

Differences ...

==== //depot/perl/t/op/regexp.t#41 (xtext) ====
Index: perl/t/op/regexp.t
--- perl/t/op/regexp.t#40~30088~        2007-02-01 08:27:00.000000000 -0800
+++ perl/t/op/regexp.t  2007-02-01 08:49:12.000000000 -0800
@@ -42,6 +42,7 @@
     @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 @@
     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 @@
                 \$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 }
End of Patch.