From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 6 Nov 2006 01:37:13 +0000 (+0000)
Subject: In pipe_exit_routine in vms/vms.c, mark a subprocess we've deleted
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f1dcba4f8bdb1757fa83218f6417bdb14e82467;p=p5sagit%2Fp5-mst-13.2.git

In pipe_exit_routine in vms/vms.c, mark a subprocess we've deleted
as done.  Courtesy of Scott Lepage.

p4raw-id: //depot/perl@29205
---

diff --git a/vms/vms.c b/vms/vms.c
index e4fe676..89d7695 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2892,6 +2892,7 @@ pipe_exit_routine(pTHX)
       if (!info->done) {  /* We tried to be nice . . . */
         sts = sys$delprc(&info->pid,0);
         if (!(sts&1) && sts != SS$_NONEXPR) _ckvmssts_noperl(sts); 
+        info->done = 1;  /* sys$delprc is as done as we're going to get. */
       }
       _ckvmssts_noperl(sys$setast(1));
       info = info->next;