diff options
author | Florian Ragwitz <rafl@debian.org> | 2010-11-15 10:06:01 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-11-15 10:06:01 +0100 |
commit | aca83993e8f7992e6cffa683d01dd8bb4c5440f2 (patch) | |
tree | 0c77d7bdad3bb5d048bfa11901f07ae62e5d20fd /op.c | |
parent | 8770f09e91748c560ba938d74145fe967ff74c09 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 && |