diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2009-10-19 21:24:39 -0400 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-19 21:24:39 -0400 |
| commit | af42750f1c24faefffa8e5ab4b3f3fbfb238992f (patch) | |
| tree | cfde5f1234dda8ffd620605cb036c322c7746183 /lib/vars.pm | |
| parent | 8883bb5ae00921bf912c003dc007071a4a437baa (diff) | |
| download | perl-af42750f1c24faefffa8e5ab4b3f3fbfb238992f.tar.gz | |
Revert part of d1eb317 which broke ./Configure -des -Dusedevel;make
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 cff63d6f7e..a0151b8403 100644 --- 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; |