diff options
| author | Zachary Miller <zcmiller@simon.er.usgs.gov> | 1998-10-20 15:52:20 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:54:43 +0000 |
| commit | e49da4e70c0834d74fe2e994c77ec811f4b0b8e5 (patch) | |
| tree | 66c9c2715f487af268100f6411e3bebe2481c6c9 /lib | |
| parent | bb3913c763f2f2f367485054e71091c3a50d2e26 (diff) | |
| download | perl-e49da4e70c0834d74fe2e994c77ec811f4b0b8e5.tar.gz | |
Exporter.pm's export_to_level() argument handling buggy
Message-Id: <199810210152.UAA07792@simon.er.usgs.gov>
p4raw-id: //depot/perl@2068
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Exporter.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Exporter.pm b/lib/Exporter.pm index 3f42e407e0..a66079a142 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, @_); } |