From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 10 Jan 2009 17:17:58 +0000 (-0600)
Subject: Revision to thread context fixes from ebd4d70bfcb408fd33ee8841c43d30ca8408b19d
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36b6faa83d9e2a0e8c712bb43e73cdd8864300cb;p=p5sagit%2Fp5-mst-13.2.git

Revision to thread context fixes from ebd4d70bfcb408fd33ee8841c43d30ca8408b19d
---

diff --git a/vms/vms.c b/vms/vms.c
index 52e2be8..5b9e851 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3043,12 +3043,12 @@ pipe_exit_routine()
       /* We need to use the Perl context of the thread that created */
       /* the pipe. */
       pTHX;
-      if (info->err)
-          aTHX = info->err->thx;
-      else if (info->out)
-          aTHX = info->out->thx;
-      else if (info->in)
-          aTHX = info->in->thx;
+      if (open_pipes->err)
+          aTHX = open_pipes->err->thx;
+      else if (open_pipes->out)
+          aTHX = open_pipes->out->thx;
+      else if (open_pipes->in)
+          aTHX = open_pipes->in->thx;
 #endif
       if ((sts = my_pclose(open_pipes->fp)) == -1) retsts = vaxc$errno;
       else if (!(sts & 1)) retsts = sts;