diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-17 20:39:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-17 20:39:08 +0000 |
| commit | 014aafb8a06f901623bd13c6c881fb238a5469d1 (patch) | |
| tree | 973ae5255c68c8ca85618ce75264f86918ec2265 /lib/vars.pm | |
| parent | 34db337b687f72bb782242a7af0c28809cef2af5 (diff) | |
| download | perl-014aafb8a06f901623bd13c6c881fb238a5469d1.tar.gz | |
tiny bug in vars.pm (from John Dlugosz)
p4raw-id: //depot/perl@3686
Diffstat (limited to 'lib/vars.pm')
| -rw-r--r-- | lib/vars.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/vars.pm b/lib/vars.pm index 334af9630a..ca2a08dcf6 100644 --- a/lib/vars.pm +++ b/lib/vars.pm @@ -14,7 +14,7 @@ sub import { my ($pack, @imports, $sym, $ch) = @_; foreach $sym (@imports) { ($ch, $sym) = unpack('a1a*', $sym); - if ($sym =~ tr/A-Za-Z_0-9//c) { + if ($sym =~ tr/A-Za-z_0-9//c) { # time for a more-detailed check-up if ($sym =~ /::/) { require Carp; |