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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-09 01:54:28 +0100 (Thu, 09 Apr 2009)
New Revision: 5871

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't fire the linestr callback for const ops in backticks, qx or qq.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:54:13 UTC (rev 5870)
+++ Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:54:28 UTC (rev 5871)
@@ -55,7 +55,7 @@
   /* $declarators{$current_package_name} */
 
   if (!HvNAME(PL_curstash))
-	  return -1;
+    return -1;
 
   is_declarator_pack_ref = hv_fetch(is_declarator, HvNAME(PL_curstash),
                              strlen(HvNAME(PL_curstash)), FALSE);
@@ -345,6 +345,8 @@
     case OP_MATCH:
     case OP_SUBST:
     case OP_TRANS:
+    case OP_BACKTICK:
+    case OP_STRINGIFY:
       return o;
       break;
     default: