Change 16164 by jhi@alpha on 2002/04/25 17:45:03
Brace yourself from Craig Berry to keep older compilers happy.
Affected files ...
.... //depot/perl/vms/vms.c#107 edit
Differences ...
==== //depot/perl/vms/vms.c#107 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c.~1~ Thu Apr 25 12:00:06 2002
+++ perl/vms/vms.c Thu Apr 25 12:00:06 2002
@@ -2714,6 +2714,7 @@
#endif /* defined(__CRTL_VER) && __CRTL_VER >= 70100322 */
+ {
$DESCRIPTOR(intdsc,"0 00:00:01");
unsigned long int ownercode = JPI$_OWNER, ownerpid;
unsigned long int pidcode = JPI$_PID, mypid;
@@ -2774,7 +2775,7 @@
_ckvmssts(sts);
return pid;
-
+ }
} /* end of waitpid() */
/*}}}*/
/*}}}*/
End of Patch.
