From: gfx <gfuji@cpan.org>
Date: Wed, 7 Oct 2009 05:50:54 +0000 (+0900)
Subject: Fix a bit
X-Git-Tag: 0.37_03~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=420c0e9300dd016b83e1afb25576a877afdbd59d;p=gitmo%2FMouse.git

Fix a bit
---

diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm
index 881a6aa..c701eea 100644
--- a/lib/Mouse/Exporter.pm
+++ b/lib/Mouse/Exporter.pm
@@ -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{