The thread warnings aren't quite yet working as planned.

[p5sagit/p5-mst-13.2.git] / vms / vms.c

diff --git a/vms/vms.c b/vms/vms.c
index 383b82d..146d8a6 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -788,7 +788,7 @@ Perl_my_setenv(pTHX_ char *lnm,char *eqv)
 }
 /*}}}*/
 
-/*{{{static void vmssetuserlnm(char *name, char *eqv);
+/*{{{static void vmssetuserlnm(char *name, char *eqv); */
 /*  vmssetuserlnm
  *  sets a user-mode logical in the process logical name table
  *  used for redirection of sys$error
@@ -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() */
 /*}}}*/
 /*}}}*/