fix memory leak on Windows (PL_sys_intern contents were never

freed)

p4raw-id: //depot/perl@6299

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 33ca54061b..9736d3b9fc 100644
--- a/perl.c
+++ b/perl.c
@@ -657,6 +657,10 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_fdpid);		/* needed in io_close() */
     PL_fdpid = Nullav;
 
+#ifdef HAVE_INTERP_INTERN
+    sys_intern_clear();
+#endif
+
     /* Destruct the global string table. */
     {
 	/* Yell and reset the HeVAL() slots that are still holding refcounts,