diff options
author | Craig A. Berry <craigberry@mac.com> | 2014-11-15 10:01:52 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2014-11-15 10:01:52 -0600 |
commit | c83a69a2acd789c69782efea29f4d01680afee33 (patch) | |
tree | b5c8c4f50d5762def635ca7c9fb73d55eb63a6fa /vms | |
parent | 89d1beed7e8ba85f11b6862ff90c085871cda880 (diff) | |
download | perl-c83a69a2acd789c69782efea29f4d01680afee33.tar.gz |
Remove unused exit handler in vms/vms.c.
This code became obsolete in ff7adb5275976 and has just been
sitting there taking up space.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/vms.c | 40 |
1 files changed, 0 insertions, 40 deletions
@@ -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) |