diff options
| author | Craig A. Berry <craigberry@mac.com> | 2015-09-26 17:24:57 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2015-09-26 17:24:57 -0500 |
| commit | 96f902ff649ca0f75966f5282611d16ecf5f907e (patch) | |
| tree | 1570e33301830695047851c5bbf9b3e3f8823345 /makedef.pl | |
| parent | 729006409d5c14a5f8698d5eefd60009ed994b04 (diff) | |
| download | perl-96f902ff649ca0f75966f5282611d16ecf5f907e.tar.gz | |
killpg for VMS.
Implement our own killpg by scanning for processes in the specified
process group, which may not mean exactly the same thing as a Unix
process group, but at least we can now send a signal to a parent (or
master) process and all of its sub-processes. In Perl-land, this
means we can now send a negative pid like so:
kill SIGKILL, -$pid;
to signal all processes in the same group as $pid.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index d1adad0a36..05252cffd3 100644 --- a/makedef.pl +++ b/makedef.pl @@ -939,6 +939,7 @@ elsif ($ARGS{PLATFORM} eq 'vms') { Perl_my_getpwuid Perl_my_gmtime Perl_my_kill + Perl_my_killpg Perl_my_localtime Perl_my_mkdir Perl_my_sigaction |