From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Sep 1999 00:53:50 +0000 (+0000)
Subject: fix memory leak in C<sub f { split ' ', "a b" } f() while 1>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abff13bb6f4392604279f83cbed17a9d16ae2d8f;p=p5sagit%2Fp5-mst-13.2.git

fix memory leak in C<sub f { split ' ', "a b" } f() while 1>

p4raw-id: //depot/perl@4103
---

diff --git a/pp.c b/pp.c
index 4d96370..23510eb 100644
--- a/pp.c
+++ b/pp.c
@@ -4870,6 +4870,7 @@ PP(pp_split)
 	else {
 	    if (!AvREAL(ary)) {
 		AvREAL_on(ary);
+		AvREIFY_off(ary);
 		for (i = AvFILLp(ary); i >= 0; i--)
 		    AvARRAY(ary)[i] = &PL_sv_undef;	/* don't free mere refs */
 	    }