From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 25 Oct 1999 07:38:15 +0000 (+0000)
Subject: win32 tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12b99c3939cdc258628e89c11e6677725b2947c0;p=p5sagit%2Fp5-mst-13.2.git

win32 tweak

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

diff --git a/win32/perllib.c b/win32/perllib.c
index f6cc632..e8d59cd 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -1170,6 +1170,7 @@ PerlProcPauseProc(struct IPerlProc *I)
 PerlIO*
 PerlProcPopen(struct IPerlProc *I, const char *command, const char *mode)
 {
+    dTHXo;
     PERL_FLUSHALL_FOR_CHILD;
     return (PerlIO*)win32_popen(command, mode);
 }