[Bast-commits] r4860 - Devel-Declare/1.000/trunk

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-09-30 12:58:38 +0100 (Tue, 30 Sep 2008)
New Revision: 4860

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
missed a PL_lex_stuff check

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-09-30 11:17:32 UTC (rev 4859)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-09-30 11:58:38 UTC (rev 4860)
@@ -304,7 +304,7 @@
   /* 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 */