From: Doug MacEachern <dougm@osf.org>
Date: Tue, 7 Jan 1997 22:20:46 +0000 (-0500)
Subject: plug for safe/opcode leaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cbfc2849d37f748a8facbcbf1c889c575943488;p=p5sagit%2Fp5-mst-13.2.git

plug for safe/opcode leaks

CHECKOP was bailing out at compile time here without destroying
the newly created/unscoped op.

p5p-msgid: <199701072220.RAA02117@postman.osf.org>
---

diff --git a/op.c b/op.c
index 327ea8a..28aacab 100644
--- a/op.c
+++ b/op.c
@@ -27,7 +27,7 @@
  */
 #define CHECKOP(type,op) \
     ((op_mask && op_mask[type]) \
-     ? (croak("%s trapped by operation mask", op_desc[type]), (OP*)op) \
+     ? (op_free((OP*)op), croak("%s trapped by operation mask", op_desc[type]), (OP*)op=Nullop) \
      : (*check[type])((OP*)op))
 #else
 #define CHECKOP(type,op) (*check[type])(op)