Remove unused exit handler in vms/vms.c.

This code became obsolete in ff7adb5275976 and has just been
sitting there taking up space.

1 files changed, 0 insertions, 40 deletions

diff --git a/vms/vms.c b/vms/vms.c
index cca6c48aff..4278afed81 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -9350,46 +9350,6 @@ int rms_sts;
     _ckvmssts_noperl(lib$find_file_end(&context));
 }
 
-static int child_st[2];/* Event Flag set when child process completes	*/
-
-static unsigned short child_chan;/* I/O Channel for Pipe Mailbox		*/
-
-static unsigned long int exit_handler(void)
-{
-short iosb[4];
-
-    if (0 == child_st[0])
-	{
-#ifdef ARGPROC_DEBUG
-	PerlIO_printf(Perl_debug_log, "Waiting for Child Process to Finish . . .\n");
-#endif
-	fflush(stdout);	    /* Have to flush pipe for binary data to	*/
-			    /* terminate properly -- <tp@mccall.com>	*/
-	sys$qiow(0, child_chan, IO$_WRITEOF, iosb, 0, 0, 0, 0, 0, 0, 0, 0);
-	sys$dassgn(child_chan);
-	fclose(stdout);
-	sys$synch(0, child_st);
-	}
-    return(1);
-}
-
-static void sig_child(int chan)
-{
-#ifdef ARGPROC_DEBUG
-    PerlIO_printf(Perl_debug_log, "Child Completion AST\n");
-#endif
-    if (child_st[0] == 0)
-	child_st[0] = 1;
-}
-
-static struct exit_control_block exit_block =
-    {
-    0,
-    exit_handler,
-    1,
-    &exit_block.exit_status,
-    0
-    };
 
 static void 
 pipe_and_fork(pTHX_ char **cmargv)