diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-05-22 15:14:28 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-23 21:22:14 +0000 |
| commit | 386f5e9f74b08dfab8c60f26e01a8957786e4d5b (patch) | |
| tree | d6dd151aa612365071589e8b98ce21f9403a10d8 /lib/vars.pm | |
| parent | f9b690dc98235f583fca7fd889f3d2b89526ce59 (diff) | |
| download | perl-386f5e9f74b08dfab8c60f26e01a8957786e4d5b.tar.gz | |
Odd code nit
Message-ID: <20010522141427.I701@blackrider.blackstar.co.uk>
p4raw-id: //depot/perl@10180
Diffstat (limited to 'lib/vars.pm')
| -rw-r--r-- | lib/vars.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/vars.pm b/lib/vars.pm index 4f3bddf2fa..39c39934c9 100644 --- a/lib/vars.pm +++ b/lib/vars.pm @@ -16,7 +16,8 @@ require strict; sub import { my $callpack = caller; - my ($pack, @imports, $sym, $ch) = @_; + my ($pack, @imports) = @_; + my ($sym, $ch); foreach (@imports) { ($ch, $sym) = unpack('a1a*', $_); if ($sym =~ tr/A-Za-z_0-9//c) { |