This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert part of d1eb317 which broke ./Configure -des -Dusedevel;make
authorJesse Vincent <jesse@bestpractical.com>
Tue, 20 Oct 2009 01:24:39 +0000 (21:24 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Tue, 20 Oct 2009 01:24:39 +0000 (21:24 -0400)
lib/vars.pm

index cff63d6..a0151b8 100644 (file)
@@ -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;