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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-09 01:35:42 +0100 (Thu, 09 Apr 2009)
New Revision: 5868

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't issue the linestr callback if the const op comes from m//, s///, qr// or tr///.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:35:26 UTC (rev 5867)
+++ Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:35:42 UTC (rev 5868)
@@ -340,6 +340,18 @@
   if (dd_flags == -1)
     return o;
 
+  if (previous_op != NULL) {
+    switch (previous_op->op_type) {
+      case OP_QR:
+      case OP_MATCH:
+      case OP_SUBST:
+      case OP_TRANS:
+        return o;
+        break;
+      default:
+        break;
+    }
+  }
   dd_linestr_callback(aTHX_ "const", name);
 
   return o;