From: Michael G. Schwern <schwern@pobox.com>
Date: Thu, 19 Aug 1999 21:30:01 +0000 (-0400)
Subject: export_to_level()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8936fac7ff60d68386a4192b6416377d019892e;p=p5sagit%2Fp5-mst-13.2.git

export_to_level()

To: perl5-porters@perl.org
Message-ID: <19990819213001.A22512@athens.aocn.com>

p4raw-id: //depot/cfgperl@4181
---

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index f049e72..91ad613 100644
--- a/lib/Exporter/Heavy.pm
+++ b/lib/Exporter/Heavy.pm
@@ -179,6 +179,8 @@ sub heavy_export_to_level
 {
       my $pkg = shift;
       my $level = shift;
+    # need to get rid of the first argument, its junk
+    shift;
       my $callpkg = caller($level);
       $pkg->export($callpkg, @_);
 }