1 files changed, 1 insertions, 1 deletions
diff --git a/os2/os2.c b/os2/os2.c
index 7c4b6dd7da..0d29d13251 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1666,7 +1666,7 @@ my_syspopen4(pTHX_ char *cmd, char *mode, I32 cnt, SV** args)
 #  endif 
     sv = *av_fetch(PL_fdpid, PerlIO_fileno(res), TRUE);
     (void)SvUPGRADE(sv,SVt_IV);
-    SvIVX(sv) = -1;			/* A cooky. */
+    SvIVX(sv) = -2;                     /* A cooky. */
     return res;
 
 #endif /* USE_POPEN */