projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
34db337
)
tiny bug in vars.pm (from John Dlugosz)
author
Gurusamy Sarathy
<gsar@cpan.org>
Sat, 17 Jul 1999 20:39:08 +0000
(20:39 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Sat, 17 Jul 1999 20:39:08 +0000
(20:39 +0000)
p4raw-id: //depot/perl@3686
lib/vars.pm
patch
|
blob
|
history
diff --git
a/lib/vars.pm
b/lib/vars.pm
index
334af96
..
ca2a08d
100644
(file)
--- 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;