'debugging' => DEFAULT_ON,
'malloc' => DEFAULT_ON,
},
- 'octmode' => {
- 'chmod' => DEFAULT_OFF,
- 'mkdir' => DEFAULT_OFF,
- 'umask' => DEFAULT_OFF,
- },
'void' => DEFAULT_OFF,
'recursion' => DEFAULT_OFF,
'redefine' => DEFAULT_OFF,
$mask |= $Bits{'all'} ;
$mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
}
- ${^WARNING_BITS} = $mask & ~ (bits(@_ ? @_ : 'all') | $All) ;
+ ${^WARNING_BITS} = $mask & ~ (bits('FATAL' => (@_ ? @_ : 'all')) | $All) ;
}
sub __chk