From: Artur Bergman <sky@nanisky.com>
Date: Thu, 21 Jun 2001 14:27:33 +0000 (+0200)
Subject: Re: [PATCH] Step 1 of moving regexps to the pad
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9ed2502f7fb85631d53499f8ee2a0d0c0bede1c;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Step 1 of moving regexps to the pad
Message-ID: <B757B4D4.1849%artur@contiller.se>

Plus extra parentheses.

p4raw-id: //depot/perl@10772
---

diff --git a/op.h b/op.h
index 6c88fa5..490b0fa 100644
--- a/op.h
+++ b/op.h
@@ -245,8 +245,8 @@ struct pmop {
 #endif
 };
 
-#define PM_GETRE(o)     o->pmregexp
-#define PM_SETRE(o,r)   o->pmregexp = r
+#define PM_GETRE(o)     ((o)->op_pmregexp)
+#define PM_SETRE(o,r)   ((o)->op_pmregexp = (r))
 
 #define PMdf_USED	0x01		/* pm has been used once already */
 #define PMdf_TAINTED	0x02		/* pm compiled from tainted pattern */