summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-11-15 10:06:01 +0100
committerFlorian Ragwitz <rafl@debian.org>2010-11-15 10:06:01 +0100
commitaca83993e8f7992e6cffa683d01dd8bb4c5440f2 (patch)
tree0c77d7bdad3bb5d048bfa11901f07ae62e5d20fd /op.c
parent8770f09e91748c560ba938d74145fe967ff74c09 (diff)
downloadperl-aca83993e8f7992e6cffa683d01dd8bb4c5440f2.tar.gz
Zero new XOPs xop_desc will never be invalid
Even if the xop description couldn't be fetched from PL_custom_op_descs.
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
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 &&