diff options
| author | Michael G. Schwern <schwern@pobox.com> | 1999-08-19 17:30:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 20:12:37 +0000 |
| commit | d8936fac7ff60d68386a4192b6416377d019892e (patch) | |
| tree | 102aff67afcf4df30c7db3a91280903404000771 /lib/Exporter | |
| parent | 7211d486c2f1b50ce739944f532a265536a2f0f5 (diff) | |
| download | perl-d8936fac7ff60d68386a4192b6416377d019892e.tar.gz | |
export_to_level()
To: perl5-porters@perl.org
Message-ID: <19990819213001.A22512@athens.aocn.com>
p4raw-id: //depot/cfgperl@4181
Diffstat (limited to 'lib/Exporter')
| -rw-r--r-- | lib/Exporter/Heavy.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index f049e72ea9..91ad61322b 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, @_); } |