projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
* Synced the perlfaq
[p5sagit/p5-mst-13.2.git]
/
lib
/
vars.pm
diff --git
a/lib/vars.pm
b/lib/vars.pm
index
cff63d6
..
a0151b8
100644
(file)
--- a/
lib/vars.pm
+++ b/
lib/vars.pm
@@
-13,7
+13,7
@@
sub import {
my ($sym, $ch);
foreach (@imports) {
if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
- if ($sym =~ /\P{IsWord}/) {
+ if ($sym =~ /\W/) {
# time for a more-detailed check-up
if ($sym =~ /^\w+[[{].*[]}]$/) {
require Carp;