This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ad3a8c6
)
Win32 process ids can have more than 16 bits
author
Jan Dubois
<jand@activestate.com>
Tue, 29 Apr 2008 01:14:39 +0000
(18:14 -0700)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 29 Apr 2008 08:29:21 +0000
(08:29 +0000)
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <
01be01c8a9d1
$
12b32b10
$
38198130
$@com>
p4raw-id: //depot/perl@33763
win32/win32.c
patch
|
blob
|
blame
|
history
diff --git
a/win32/win32.c
b/win32/win32.c
index
5a0dde3
..
0673fc2
100644
(file)
--- a/
win32/win32.c
+++ b/
win32/win32.c
@@
-665,8
+665,7
@@
Perl_do_aspawn(pTHX_ SV *really, SV **mark, SV **sp)
}
if (flag == P_NOWAIT) {
- if (IsWin95())
- PL_statusvalue = -1; /* >16bits hint for pp_system() */
+ PL_statusvalue = -1; /* >16bits hint for pp_system() */
}
else {
if (status < 0) {
@@
-779,8
+778,7
@@
do_spawn2(pTHX_ const char *cmd, int exectype)
Safefree(argv);
}
if (exectype == EXECF_SPAWN_NOWAIT) {
- if (IsWin95())
- PL_statusvalue = -1; /* >16bits hint for pp_system() */
+ PL_statusvalue = -1; /* >16bits hint for pp_system() */
}
else {
if (status < 0) {