DJGPP patches from Laszlo Molnar.

p4raw-id: //depot/perl@10951

1 files changed, 2 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index 34da642d81..7bb7dee78d 100644
--- a/perl.c
+++ b/perl.c
@@ -226,8 +226,8 @@ perl_construct(pTHXx)
 	 * space.  The other alternative would be to provide STDAUX and STDPRN
 	 * filehandles.
 	 */
-	(void)fclose(stdaux);
-	(void)fclose(stdprn);
+	(void)PerlIO_close(PerlIO_importFILE(stdaux, 0));
+	(void)PerlIO_close(PerlIO_importFILE(stdprn, 0));
 #endif
     }