diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-11-27 10:38:02 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-28 00:35:53 +0000 |
| commit | f2610a60660dc5fbebc67120bf8fe194b8ff585c (patch) | |
| tree | c7fd29147d5115f1915c4a55bbf217a9135d2fe8 /vms/vmsish.h | |
| parent | 80071be79f901a07ddf7256d222583c79b0346d6 (diff) | |
| download | perl-f2610a60660dc5fbebc67120bf8fe194b8ff585c.tar.gz | |
A not-so-lethal kill() for VMS pre-7.0
Message-Id: <011127153734.62182@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@13329
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 182758fa57..a21c9e3982 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -511,6 +511,10 @@ struct utimbuf { # define sigaction(a,b,c) Perl_my_sigaction(a,b,c) # endif #endif +#ifdef KILL_BY_SIGPRC +# define kill Perl_my_kill +#endif + /* VMS doesn't use a real sys_nerr, but we need this when scanning for error * messages in text strings . . . @@ -768,6 +772,9 @@ FILE * Perl_my_tmpfile (); #ifndef HOMEGROWN_POSIX_SIGNALS int Perl_my_sigaction (pTHX_ int, const struct sigaction*, struct sigaction*); #endif +#ifdef KILL_BY_SIGPRC +int Perl_my_kill (int, int); +#endif int Perl_my_utime (pTHX_ char *, struct utimbuf *); void Perl_vms_image_init (int *, char ***); struct dirent * Perl_readdir (pTHX_ DIR *); |