From: matthewt <matthewt@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sat, 20 Sep 2008 14:21:04 +0000 (+0000)
Subject: stop accidentally picking up 'foo' as bareword foo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77de3425734d7be090095ebd128ccda74796eaf2;p=p5sagit%2FDevel-Declare.git

stop accidentally picking up 'foo' as bareword foo

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-Declare@4829 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Declare.xs b/Declare.xs
index be8f478..7ca77ed 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -287,6 +287,12 @@ STATIC OP *dd_ck_const(pTHX_ OP *o) {
 
   o = dd_old_ck_const(aTHX_ o); /* let the original do its job */
 
+  /* if this is set, we just grabbed a delimited string or something,
+     not a bareword, so NO TOUCHY */
+
+  if (PL_lex_stuff)
+    return o;
+
   /* don't try and look this up if it's not a string const */
   if (!SvPOK(cSVOPo->op_sv))
     return o;