This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32 process ids can have more than 16 bits
authorJan Dubois <jand@activestate.com>
Tue, 29 Apr 2008 01:14:39 +0000 (18:14 -0700)
committerRafael 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

index 5a0dde3..0673fc2 100644 (file)
@@ -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) {