[PATCH 630] unknown warnings non-fatal (resend)

[Greg Bacon <gbacon@itsc.uah.edu>]

Sorry for the resend.. tabbage. :-(

--- perl5.005_63/lib/warnings.pm.orig	Mon Jan 31 15:56:13 2000
+++ perl5.005_63/lib/warnings.pm	Mon Jan 31 16:00:33 2000
@@ -115,14 +115,15 @@
     my $catmask ;
     my $fatal = 0 ;
     foreach my $word (@_) {
-	if  ($word eq 'FATAL')
-	  { $fatal = 1 }
-	elsif ($catmask = $Bits{$word}) {
-	  $mask |= $catmask ;
-	  $mask |= $DeadBits{$word} if $fatal ;
+	if  ($word eq 'FATAL') {
+	    $fatal = 1;
+	}
+	else {
+	    if ($catmask = $Bits{$word}) {
+		$mask |= $catmask;
+		$mask |= $DeadBits{$word} if $fatal;
+	    }
 	}
-	else
-	  { croak "unknown warning category '$word'" }
     }
 
     return $mask ;
--- perl5.005_63/t/pragma/warn/2use.orig	Mon Jan 31 16:09:23 2000
+++ perl5.005_63/t/pragma/warn/2use	Mon Jan 31 16:09:15 2000
@@ -5,11 +5,9 @@
 
 __END__
 
-# check illegal category is caught
+# check illegal category is nop
 use warnings 'blah' ;
 EXPECT
-unknown warning category 'blah' at - line 3
-BEGIN failed--compilation aborted at - line 3.
 ########
 
 # Check compile time scope of pragma

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---