projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7211d48
)
export_to_level()
author
Michael G. Schwern
<schwern@pobox.com>
Thu, 19 Aug 1999 21:30:01 +0000
(17:30 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 17 Sep 1999 20:12:37 +0000
(20:12 +0000)
To: perl5-porters@perl.org
Message-ID: <
19990819213001
.A22512@athens.aocn.com>
p4raw-id: //depot/cfgperl@4181
lib/Exporter/Heavy.pm
patch
|
blob
|
history
diff --git
a/lib/Exporter/Heavy.pm
b/lib/Exporter/Heavy.pm
index
f049e72
..
91ad613
100644
(file)
--- 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, @_);
}