Exporter.pm's export_to_level() argument handling buggy

	Message-Id: <199810210152.UAA07792@simon.er.usgs.gov>

p4raw-id: //depot/perl@2068

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