Don't fire the linestr callback for const ops in backticks, qx or qq.
Florian Ragwitz [Thu, 9 Apr 2009 00:54:28 +0000 (00:54 +0000)]
Declare.xs

index e4cb7cb..69e9f6d 100644 (file)
@@ -55,7 +55,7 @@ int dd_is_declarator(pTHX_ char* name) {
   /* $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 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) {
     case OP_MATCH:
     case OP_SUBST:
     case OP_TRANS:
+    case OP_BACKTICK:
+    case OP_STRINGIFY:
       return o;
       break;
     default: