remove leaks associated with version object change #23190

p4raw-link: @23190 on //depot/perl: d7aa53827cc12fdf8a697328df844e16aaa58287

p4raw-id: //depot/perl@23198

1 files changed, 2 insertions, 0 deletions

diff --git a/util.c b/util.c
index 8d4c13e0a1..cd28c197c4 100644
--- a/util.c
+++ b/util.c
@@ -3887,6 +3887,7 @@ Perl_scan_version(pTHX_ char *s, SV *rv, bool qv)
     bool saw_under = 0;
     SV* sv = newSVrv(rv, "version"); /* create an SV and upgrade the RV */
     (void)sv_upgrade(sv, SVt_PVAV); /* needs to be an AV type */
+    AvREAL_on((AV*)sv);
 
     /* pre-scan the imput string to check for decimals */
     while ( *pos == '.' || *pos == '_' || isDIGIT(*pos) )
@@ -4010,6 +4011,7 @@ Perl_new_version(pTHX_ SV *ver)
 	AV *av = (AV *)SvRV(ver);
 	SV* sv = newSVrv(rv, "version"); /* create an SV and upgrade the RV */
 	(void)sv_upgrade(sv, SVt_PVAV); /* needs to be an AV type */
+	AvREAL_on((AV*)sv);
 	for ( key = 0; key <= av_len(av); key++ )
 	{
 	    I32 rev = SvIV(*av_fetch(av, key, FALSE));