From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 9 Apr 2009 00:54:28 +0000 (+0000)
Subject: Don't fire the linestr callback for const ops in backticks, qx or qq.
X-Git-Tag: 0.005000~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2a41aa1d0e8ad5572944c590b90de2d70a39713;p=p5sagit%2FDevel-Declare.git

Don't fire the linestr callback for const ops in backticks, qx or qq.
---

diff --git a/Declare.xs b/Declare.xs
index e4cb7cb..69e9f6d 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -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: