X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=d2bf45e83f1fb8b0df8b83f798d3e5d46580c801;hb=855eff0e9edf07f4d7af3eb245a3139fa6c6bd05;hp=bd0d7efa994f545c4f6ade1b4b10aaf702da9581;hpb=2b68f76d78d96325821e9a6360c3639f8c5637df;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index bd0d7ef..d2bf45e 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_03 +This document describes Mouse version 0.40_05 =head1 SYNOPSIS