X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=18a33873361fedd2e8f03527f95892f2428cf367;hb=refs%2Ftags%2F0.40_06;hp=8be55d94c525257ff150c4692238d0333edf65cf;hpb=065f79e7cd03765f26c6ea276aaf9b3c5897886a;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index 8be55d9..18a3387 100644 --- a/lib/Mouse/Exporter.pm +++ b/lib/Mouse/Exporter.pm @@ -14,7 +14,7 @@ require Mouse::Util; sub import{ $^H |= _strict_bits; # strict->import; - ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import; + ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import; return; } @@ -166,7 +166,7 @@ sub do_import { } $^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; @@ -258,7 +258,7 @@ Mouse::Exporter - make an import() and unimport() just like Mouse.pm =head1 VERSION -This document describes Mouse version 0.40_02 +This document describes Mouse version 0.40_06 =head1 SYNOPSIS