This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
undo changes to Exporter.pm from #2312
authorGraham Barr <gbarr@pobox.com>
Sat, 12 Dec 1998 17:12:28 +0000 (17:12 +0000)
committerGraham Barr <gbarr@pobox.com>
Sat, 12 Dec 1998 17:12:28 +0000 (17:12 +0000)
p4raw-id: //depot/maint-5.005/perl@2472

lib/Exporter.pm

index a66079a..3f42e40 100644 (file)
@@ -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, @_);
 }