X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6f408c34f6bf329137019b45c93a2d401e4065a8..0924b5a49d76dcfb6cd7a2e52c607e0bc707d0f5:/util.c

diff --git a/util.c b/util.c
index dabc062..0ea39c6 100644
--- a/util.c
+++ b/util.c
@@ -3127,9 +3127,13 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
     dSAVEDERRNO;
     const int fd = PerlIO_fileno(ptr);
 
+#ifdef USE_PERLIO
     /* Find out whether the refcount is low enough for us to wait for the
        child proc without blocking. */
     const bool should_wait = PerlIOUnix_refcnt(fd) == 1;
+#else
+    const bool should_wait = 1;
+#endif
 
     svp = av_fetch(PL_fdpid,fd,TRUE);
     pid = (SvTYPE(*svp) == SVt_IV) ? SvIVX(*svp) : -1;