[perl #120939] at least fix the leak in const_av_xsub

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index f0360ed225..7bbae54e0e 100644
--- a/op.c
+++ b/op.c
@@ -12478,7 +12478,7 @@ const_av_xsub(pTHX_ CV* cv)
 	Perl_croak(aTHX_ "Magical list constants are not supported");
     if (GIMME_V != G_ARRAY) {
 	EXTEND(SP, 1);
-	ST(0) = newSViv((IV)AvFILLp(av)+1);
+	ST(0) = sv_2mortal(newSViv((IV)AvFILLp(av)+1));
 	XSRETURN(1);
     }
     EXTEND(SP, AvFILLp(av)+1);