X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=18a33873361fedd2e8f03527f95892f2428cf367;hb=cc7cd81f082a9aaa3dd17ca07dbb91da28bd0b69;hp=102165575c0648b8aeeb52d44cee942ab4fa9ea6;hpb=29b12beade3d94ce04739d0c7c77316f528af9b2;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index 1021655..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_01 +This document describes Mouse version 0.40_06 =head1 SYNOPSIS