[Bast-commits] r4829 - trunk/Devel-Declare

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-09-20 15:21:04 +0100 (Sat, 20 Sep 2008)
New Revision: 4829

Modified:
   trunk/Devel-Declare/Declare.xs
Log:
stop accidentally picking up 'foo' as bareword foo

Modified: trunk/Devel-Declare/Declare.xs
===================================================================
--- trunk/Devel-Declare/Declare.xs	2008-09-20 14:20:22 UTC (rev 4828)
+++ trunk/Devel-Declare/Declare.xs	2008-09-20 14:21:04 UTC (rev 4829)
@@ -287,6 +287,12 @@
 
   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;