diff options
| author | Yves Orton <demerphq@gmail.com> | 2009-10-17 22:47:20 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2009-10-19 22:56:47 +0200 |
| commit | d1eb31775715b0fcd7f36308da961c0698205d9f (patch) | |
| tree | c8850c8fe42d0523b4cd910fe55691a6e088c1c6 /lib/vars.pm | |
| parent | 3b665c4736519efd7820e8513b3bcd40fd968e45 (diff) | |
| download | perl-d1eb31775715b0fcd7f36308da961c0698205d9f.tar.gz | |
somewhat fix failing regex tests. but break lots of other stuff at the same time
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 a0151b8403..cff63d6f7e 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 =~ /\W/) { + if ($sym =~ /\P{IsWord}/) { # time for a more-detailed check-up if ($sym =~ /^\w+[[{].*[]}]$/) { require Carp; |