From: Jesse Vincent <jesse@bestpractical.com>
Date: Tue, 20 Oct 2009 01:24:39 +0000 (-0400)
Subject: Revert part of d1eb317 which broke ./Configure -des -Dusedevel;make
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af42750f1c24faefffa8e5ab4b3f3fbfb238992f;p=p5sagit%2Fp5-mst-13.2.git

Revert part of d1eb317 which broke ./Configure -des -Dusedevel;make
---

diff --git a/lib/vars.pm b/lib/vars.pm
index cff63d6..a0151b8 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;