This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Always defining PERLIO_TERM, even if it's empty, makes for a simpler
authorNicholas Clark <nick@ccl4.org>
Sat, 21 Oct 2006 21:02:53 +0000 (21:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 21 Oct 2006 21:02:53 +0000 (21:02 +0000)
PERL_SYS_TERM

p4raw-id: //depot/perl@29073

dosish.h
perl.h
unixish.h

index a5eeace..b930de2 100644 (file)
--- a/dosish.h
+++ b/dosish.h
 #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 (file)
--- 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
index a08e8ba..eeb074e 100644 (file)
--- a/unixish.h
+++ b/unixish.h
 #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"