From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 21 Oct 2006 21:02:53 +0000 (+0000)
Subject: Always defining PERLIO_TERM, even if it's empty, makes for a simpler
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b29934bd65555b7f172ba7a683ba95b59eb919b;p=p5sagit%2Fp5-mst-13.2.git

Always defining PERLIO_TERM, even if it's empty, makes for a simpler
PERL_SYS_TERM

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

diff --git a/dosish.h b/dosish.h
index a5eeace..b930de2 100644
--- a/dosish.h
+++ b/dosish.h
@@ -43,11 +43,7 @@
 #endif	/* DJGPP */
 
 #ifndef PERL_SYS_TERM
-# ifdef USE_PERLIO
 #  define PERL_SYS_TERM() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM
-# else
-#  define PERL_SYS_TERM() HINTS_REFCNT_TERM; OP_REFCNT_TERM; MALLOC_TERM
-# endif
 #endif
 #define dXSUB_SYS
 
diff --git a/perl.h b/perl.h
index 93dad5b..d047030 100644
--- a/perl.h
+++ b/perl.h
@@ -3876,6 +3876,9 @@ EXTERN_C void PerlIO_teardown(pTHX);
 #  define PERLIO_INIT
 #  define PERLIO_TERM	PerlIO_teardown(aTHX)
 # endif
+#else
+#  define PERLIO_INIT
+#  define PERLIO_TERM
 #endif
 
 #ifdef MYMALLOC
diff --git a/unixish.h b/unixish.h
index a08e8ba..eeb074e 100644
--- a/unixish.h
+++ b/unixish.h
@@ -131,11 +131,7 @@
 #endif
 
 #ifndef PERL_SYS_TERM
-# ifdef USE_PERLIO
 #  define PERL_SYS_TERM()		HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM
-# else
-#  define PERL_SYS_TERM()		HINTS_REFCNT_TERM; OP_REFCNT_TERM; MALLOC_TERM
-# endif
 #endif
 
 #define BIT_BUCKET "/dev/null"