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

[p5sagit/p5-mst-13.2.git] / lib / Exporter / Heavy.pm

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index 91ad613..95ffc55 100644 (file)
--- 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, @_);
 }