From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 25 Apr 2002 17:45:03 +0000 (+0000)
Subject: Brace yourself from Craig Berry to keep older compilers happy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21bc9d502a21a2b50d9e41d24690fb922006312b;p=p5sagit%2Fp5-mst-13.2.git

Brace yourself from Craig Berry to keep older compilers happy.

p4raw-id: //depot/perl@16164
---

diff --git a/vms/vms.c b/vms/vms.c
index 383b82d..d0605d2 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() */
 /*}}}*/
 /*}}}*/