[PATCH 630] don't croak on unknown warning category

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

--- 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
End of Patch.

---

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

---