From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 27 Sep 1999 17:05:22 +0000 (+0000)
Subject: avoid implicit split to @_ in change#4181; binary -> text file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31a631590693288d17f9efd2818515ff2b69ad71;p=p5sagit%2Fp5-mst-13.2.git

avoid implicit split to @_ in change#4181; binary -> text file
types in p4

p4raw-link: @4181 on //depot/cfgperl: d8936fac7ff60d68386a4192b6416377d019892e

p4raw-id: //depot/perl@4242
---

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index 91ad613..95ffc55 100644
--- a/lib/Exporter/Heavy.pm
+++ b/lib/Exporter/Heavy.pm
@@ -179,8 +179,7 @@ sub heavy_export_to_level
 {
       my $pkg = shift;
       my $level = shift;
-    # need to get rid of the first argument, its junk
-    shift;
+      (undef) = shift;			# XXX redundant arg
       my $callpkg = caller($level);
       $pkg->export($callpkg, @_);
 }