diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-27 17:05:22 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-27 17:05:22 +0000 |
| commit | 31a631590693288d17f9efd2818515ff2b69ad71 (patch) | |
| tree | 84318423404ac3fca366a6416c9d772d098b0ccd /lib/Exporter | |
| parent | 1b1c1ae21a453ed469693bbbe5f63bb5bc31d9d7 (diff) | |
| download | perl-31a631590693288d17f9efd2818515ff2b69ad71.tar.gz | |
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
Diffstat (limited to 'lib/Exporter')
| -rw-r--r-- | lib/Exporter/Heavy.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index 91ad61322b..95ffc554be 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, @_); } |