From: Zachary Miller <zcmiller@simon.er.usgs.gov>
Date: Tue, 20 Oct 1998 20:52:20 +0000 (-0500)
Subject: Exporter.pm's export_to_level() argument handling buggy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e49da4e70c0834d74fe2e994c77ec811f4b0b8e5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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, @_);
 }