Revert argument list change in export_to_level.

p4raw-id: //depot/maint-5.004/perl@3241

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Exporter.pm b/lib/Exporter.pm
index a66079a142..3f42e407e0 100644
--- a/lib/Exporter.pm
+++ b/lib/Exporter.pm
@@ -170,7 +170,8 @@ sub export {
 sub export_to_level
 {
       my $pkg = shift;
-      my $level = shift;
+      my ($level, $junk) = (shift, shift);  # need to get rid of first arg
+                                            # we know it already.
       my $callpkg = caller($level);
       $pkg->export($callpkg, @_);
 }