Lines Matching refs:word
312 foreach my $word ( @_ ) {
313 if ($word eq 'FATAL') {
317 elsif ($word eq 'NONFATAL') {
321 elsif ($catmask = $Bits{$word}) {
323 $mask |= $DeadBits{$word} if $fatal ;
324 $mask &= ~($DeadBits{$word}|$All) if $no_fatal ;
327 { Croaker("Unknown warnings category '$word'")}
350 foreach my $word ( @_ ) {
351 if ($word eq 'FATAL') {
355 elsif ($word eq 'NONFATAL') {
359 elsif ($catmask = $Bits{$word}) {
361 $mask |= $DeadBits{$word} if $fatal ;
362 $mask &= ~($DeadBits{$word}|$All) if $no_fatal ;
365 { Croaker("Unknown warnings category '$word'")}
385 foreach my $word ( @_ ) {
386 if ($word eq 'FATAL') {
389 elsif ($catmask = $Bits{$word}) {
390 $mask &= ~($catmask | $DeadBits{$word} | $All);
393 { Croaker("Unknown warnings category '$word'")}