sub import{
$^H |= _strict_bits; # strict->import;
- ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
+ ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import;
return;
}
}
$^H |= _strict_bits; # strict->import;
- ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
+ ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import;
if($spec->{INIT_META}){
my $meta;