summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2001-06-11 16:34:31 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-12 13:27:28 +0000
commit1de7c2aca01d9e33d916dcec3cd53be0b1f8e101 (patch)
tree2efc0e17e307ec5906198016eadd03f2180fe518 /perl.h
parentc6c619a96fa11b09bef26d0c724b6cfd0bdbb34b (diff)
downloadperl-1de7c2aca01d9e33d916dcec3cd53be0b1f8e101.tar.gz
As suggested in
Subject: Re: ext/ + -Wall Message-Id: <200106120634.f5C6YVM07246@smtp3.ActiveState.com> p4raw-id: //depot/perl@10535
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 092d6efdcd..1673da9f71 100644
--- a/perl.h
+++ b/perl.h
@@ -258,6 +258,15 @@ struct perl_thread;
# define dTHXx dTHX
#endif
+/* Under PERL_IMPLICIT_SYS (used in Windows for fork emulation)
+ * PerlIO_foo() expands to PL_StdIO->pFOO(PL_StdIO, ...).
+ * dTHXs is therefore needed for all functions using PerlIO_foo(). */
+#ifdef PERL_IMPLICIT_SYS
+# define dTHXs dTHX
+#else
+# define dTHXs dNOOP
+#endif
+
#undef START_EXTERN_C
#undef END_EXTERN_C
#undef EXTERN_C