diff options
| author | RonaldWS@aol.com <RonaldWS@aol.com> | 1999-05-30 12:27:28 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-04 21:10:32 +0000 |
| commit | d91d68c10c209afd8c4afd24673b7e49effc1e4b (patch) | |
| tree | 5f3a8f3cf9234f3690662130e88c1e1d01ce8a5b /win32 | |
| parent | f70166d5938e239dffca56d3a48789e2071447cf (diff) | |
| download | perl-d91d68c10c209afd8c4afd24673b7e49effc1e4b.tar.gz | |
adapted suggested tests for addition to testsuite
Message-Id: <25cd799f.2482f930@aol.com>
Subject: [19990530.007] Open with pipe | does not return pid under win32
p4raw-id: //depot/perl@3573
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index eb486e3a48..a8ba54d1c0 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -2122,6 +2122,9 @@ win32_popen(const char *command, const char *mode) win32_close(oldfd); sv_setiv(*av_fetch(w32_fdpid, p[parent], TRUE), childpid); + + /* set process id so that it can be returned by perl's open() */ + PL_forkprocess = childpid; } /* we have an fd, return a file stream */ |