X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=warnings.pl;h=c6f13137227551e28fd0a04d7363f9959a3aa83c;hb=c9fcc6c44229e7c36dee08e5d883d12284a44f17;hp=72d19af67bf3056b9a3e410acf087d59ea042f5f;hpb=971a9dd36d83520d7040365d2791ad56b6d39411;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/warnings.pl b/warnings.pl
index 72d19af..c6f1313 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -27,7 +27,7 @@ my $tree = {
 			   },
        	 'syntax'	=> { 	'ambiguous'	=> DEFAULT_OFF,
 			     	'semicolon'	=> DEFAULT_OFF,
-			     	'precedence'	=> DEFAULT_OFF,
+			     	'bareword'	=> DEFAULT_OFF,
 			     	'reserved'	=> DEFAULT_OFF,
 				'octal'		=> DEFAULT_OFF,
 				'digit'		=> DEFAULT_OFF,
@@ -300,14 +300,15 @@ sub bits {
     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 ;
@@ -315,12 +316,12 @@ sub bits {
 
 sub import {
     shift;
-    ${^Warnings} |= bits(@_ ? @_ : 'all') ;
+    ${^WARNING_BITS} |= bits(@_ ? @_ : 'all') ;
 }
 
 sub unimport {
     shift;
-    ${^Warnings} &= ~ bits(@_ ? @_ : 'all') ;
+    ${^WARNING_BITS} &= ~ bits(@_ ? @_ : 'all') ;
 }
 
 sub enabled
@@ -328,7 +329,7 @@ sub enabled
     my $string = shift ;
 
     return 1
-	if $bits{$string} && ${^Warnings} & $bits{$string} ;
+	if $bits{$string} && ${^WARNING_BITS} & $bits{$string} ;
    
     return 0 ; 
 }