summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-04-25 17:45:03 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-04-25 17:45:03 +0000
commit21bc9d502a21a2b50d9e41d24690fb922006312b (patch)
tree906c2f6e855a7ddc50a59e2f02edd1ecabaeb538 /vms
parent41cb10058d4b3aa9d11d3b8991811c08c7fcc328 (diff)
downloadperl-21bc9d502a21a2b50d9e41d24690fb922006312b.tar.gz
Brace yourself from Craig Berry to keep older compilers happy.
p4raw-id: //depot/perl@16164
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 383b82d29e..d0605d2359 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2714,6 +2714,7 @@ Perl_my_waitpid(pTHX_ Pid_t pid, int *statusp, int flags)
#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 @@ Perl_my_waitpid(pTHX_ Pid_t pid, int *statusp, int flags)
_ckvmssts(sts);
return pid;
-
+ }
} /* end of waitpid() */
/*}}}*/
/*}}}*/