In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c83a69a2acd789c69782efea29f4d01680afee33?hp=89d1beed7e8ba85f11b6862ff90c085871cda880>
- Log ----------------------------------------------------------------- commit c83a69a2acd789c69782efea29f4d01680afee33 Author: Craig A. Berry <[email protected]> Date: Sat Nov 15 10:01:52 2014 -0600 Remove unused exit handler in vms/vms.c. This code became obsolete in ff7adb5275976 and has just been sitting there taking up space. ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 40 ---------------------------------------- 1 file changed, 40 deletions(-) diff --git a/vms/vms.c b/vms/vms.c index cca6c48..4278afe 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 -- <[email protected]> */ - 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) -- Perl5 Master Repository
