Fix small leak with -F at interpreter destruction

p4raw-id: //depot/perl@29108

1 files changed, 5 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 7353d3291b..078cf5de7d 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;