diff options
author | Chip Salzenberg <chip@pobox.com> | 1999-04-13 04:21:49 +0000 |
---|---|---|
committer | Todd Rinaldo <toddr@cpanel.net> | 2019-10-19 07:03:08 -0500 |
commit | 085208341cad51323d3c6a156c3864eda9de4460 (patch) | |
tree | 2e67a5b5ace3e71fc5127de58855c6cd7b3df2ef | |
parent | ae4dded20e686e4b1279a53cc48802a3e3c4d5a7 (diff) | |
download | perl-085208341cad51323d3c6a156c3864eda9de4460.tar.gz |
Revert argument list change in export_to_level.
p4raw-id: //depot/maint-5.004/perl@3241
-rw-r--r-- | lib/Exporter.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Exporter.pm b/lib/Exporter.pm index a66079a142..3f42e407e0 100644 --- a/lib/Exporter.pm +++ b/lib/Exporter.pm @@ -170,7 +170,8 @@ sub export { sub export_to_level { my $pkg = shift; - my $level = shift; + my ($level, $junk) = (shift, shift); # need to get rid of first arg + # we know it already. my $callpkg = caller($level); $pkg->export($callpkg, @_); } |