From: matthewt <matthewt@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Tue, 30 Sep 2008 11:58:38 +0000 (+0000)
Subject: missed a PL_lex_stuff check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba7588a5025abd1fb2bc321c5bb5643046cd756e;p=p5sagit%2FDevel-Declare.git

missed a PL_lex_stuff check

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

diff --git a/Declare.xs b/Declare.xs
index 76d70dd..d4b74f9 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -304,7 +304,7 @@ STATIC OP *dd_ck_const(pTHX_ OP *o) {
   /* if this is set, we just grabbed a delimited string or something,
      not a bareword, so NO TOUCHY */
 
-  if (PL_lex_stuff)
+  if (DD_HAVE_LEX_STUFF)
     return o;
 
   /* don't try and look this up if it's not a string const */