Stop tr/// from writing to target when only counting.

p4raw-id: //depot/perl@359

1 files changed, 1 insertions, 0 deletions

diff --git a/op.h b/op.h
index 471ace0760..a203c44639 100644
--- a/op.h
+++ b/op.h
@@ -95,6 +95,7 @@ typedef U32 PADOFFSET;
 #define OPpRUNTIME		64	/* Pattern coming in on the stack */
 
 /* Private for OP_TRANS */
+#define OPpTRANS_COUNTONLY	8
 #define OPpTRANS_SQUASH		16
 #define OPpTRANS_DELETE		32
 #define OPpTRANS_COMPLEMENT	64