win32 tweak

p4raw-id: //depot/perl@4450

diff --git a/win32/perllib.c b/win32/perllib.c
index f6cc632..e8d59cd 100644 (file)
--- 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);
 }