From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 25 Oct 2006 16:19:50 +0000 (+0000)
Subject: Fix small leak with -F at interpreter destruction
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84386e14e5a1a25955637097f35813958ed6f356;p=p5sagit%2Fp5-mst-13.2.git

Fix small leak with -F at interpreter destruction

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

diff --git a/perl.c b/perl.c
index 7353d32..078cf5d 100644
--- a/perl.c
+++ b/perl.c
@@ -881,6 +881,11 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_rsfp_filters);
     PL_rsfp_filters = NULL;
 
+    if (PL_minus_F) {
+	Safefree(PL_splitstr);
+	PL_splitstr = NULL;
+    }
+
     /* switches */
     PL_preprocess   = FALSE;
     PL_minus_n      = FALSE;