From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 23 Apr 2010 23:29:38 +0000 (-0500)
Subject: Fix broken -Uuseperlio build on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a24c654f07035713924a2c157a5149ef670f55a5;p=p5sagit%2Fp5-mst-13.2.git

Fix broken -Uuseperlio build on VMS.

We were checking a variable that doesn't exist in the non-default
case of disabling perlio.  Now we only look at it when it exists.
---

diff --git a/vms/vms.c b/vms/vms.c
index 45bfe21..60f01e3 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3077,7 +3077,10 @@ pipe_exit_routine()
 #if defined(USE_ITHREADS)
              && my_perl
 #endif
-             && PL_perlio_fd_refcnt) 
+#ifdef USE_PERLIO
+             && PL_perlio_fd_refcnt 
+#endif
+              )
                PerlIO_flush(info->fp);
            else 
                fflush((FILE *)info->fp);
@@ -4685,7 +4688,10 @@ static I32 my_pclose_pinfo(pTHX_ pInfo info) {
 #if defined(USE_ITHREADS)
           && my_perl
 #endif
-          && PL_perlio_fd_refcnt) 
+#ifdef USE_PERLIO
+          && PL_perlio_fd_refcnt 
+#endif
+           )
             PerlIO_flush(info->fp);
         else 
             fflush((FILE *)info->fp);
@@ -4712,7 +4718,10 @@ static I32 my_pclose_pinfo(pTHX_ pInfo info) {
 #if defined(USE_ITHREADS)
          && my_perl
 #endif
-         && PL_perlio_fd_refcnt) 
+#ifdef USE_PERLIO
+         && PL_perlio_fd_refcnt
+#endif
+        )
         PerlIO_close(info->fp);
      else 
         fclose((FILE *)info->fp);