Fix a bit
gfx [Wed, 7 Oct 2009 05:50:54 +0000 (14:50 +0900)]
lib/Mouse/Exporter.pm

index 881a6aa..c701eea 100644 (file)
@@ -113,7 +113,7 @@ sub setup_import_methods{
     # for backward compatibility
 
     *{$exporting_package . '::export_to_level'} = sub{
-        my($package, $level, @args) = @_;
+        my($package, $level, undef, @args) = @_; # the third argument is redundant
         do_import($package, { into_level => $level + 1 }, @args);
     };
     *{$exporting_package . '::export'} = sub{