diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-10-15 22:30:43 -0400 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2005-10-16 19:10:56 +0000 |
| commit | 7a7fd8e0ed51785cbfb9fc040ff670a40911ca48 (patch) | |
| tree | 6fe48b7470561b26997a5af084ce8ed7047a6ce8 /vms/vmsish.h | |
| parent | b9b17cada456ce6b994dd57b6f9a29a372123e93 (diff) | |
| download | perl-7a7fd8e0ed51785cbfb9fc040ff670a40911ca48.tar.gz | |
[patch@25763] Fix VMS error/exit handling, update kill function
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <4351F393.8030809@qsl.net>
Date: Sun, 16 Oct 2005 02:30:43 -0400
p4raw-id: //depot/perl@25772
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 41b2bb21d7..2ca6f03cd4 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -300,10 +300,12 @@ #define HAVE_INTERP_INTERN struct interp_intern { int hushed; + int posix_exit; double inv_rand_max; }; #define VMSISH_HUSHED (PL_sys_intern.hushed) #define MY_INV_RAND_MAX (PL_sys_intern.inv_rand_max) +#define MY_POSIX_EXIT (PL_sys_intern.posix_exit) /* Flags for vmstrnenv() */ #define PERL__TRNENV_SECURE 0x01 @@ -762,7 +764,8 @@ typedef unsigned myino_t; void prime_env_iter (void); void init_os_extras (void); -int vms_status_to_unix(int vms_status); +int Perl_vms_status_to_unix(int vms_status, int child_flag); +int Perl_unix_status_to_vms(int unix_status); /* prototype section start marker; `typedef' passes through cpp */ typedef char __VMS_PROTOTYPES__; int Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int); |