X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fperlhost.h;h=cac05b28324fe2b54860a2ef6449101746a3d98a;hb=d722968f91639a851375cb3aeb7df128909c0779;hp=02b9cb4bc45eddfd6948c99d360d2325a2d1d436;hpb=4ea817c67acbb0637159d692922fa81954793ad9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/perlhost.h b/win32/perlhost.h
index 02b9cb4..cac05b2 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1719,6 +1719,13 @@ restart:
 	PL_main_root = Nullop;
     }
 
+    /* close the std handles to avoid fd leaks */
+    {
+	do_close(gv_fetchpv("STDIN", TRUE, SVt_PVIO), FALSE);
+	do_close(gv_fetchpv("STDOUT", TRUE, SVt_PVIO), FALSE);
+	do_close(gv_fetchpv("STDERR", TRUE, SVt_PVIO), FALSE);
+    }
+
     /* destroy everything (waits for any pseudo-forked children) */
     perl_destruct(my_perl);
     perl_free(my_perl);