From aca83993e8f7992e6cffa683d01dd8bb4c5440f2 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 15 Nov 2010 10:06:01 +0100
Subject: Zero new XOPs xop_desc will never be invalid

Even if the xop description couldn't be fetched from PL_custom_op_descs.
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index b132665625..65f940c59a 100644
--- a/op.c
+++ b/op.c
@@ -10082,7 +10082,7 @@ Perl_custom_op_xop(pTHX_ const OP *o)
 	STRLEN l;
 
 	/* XXX does all this need to be shared mem? */
-	Newx(xop, 1, XOP);
+	Newxz(xop, 1, XOP);
 	pv = SvPV(HeVAL(he), l);
 	XopENTRY_set(xop, xop_name, savepvn(pv, l));
 	if (PL_custom_op_descs &&
-- 
cgit v1.2.1