diff options
author | Karl Williamson <khw@cpan.org> | 2021-02-09 12:48:18 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-07-25 15:47:40 -0600 |
commit | 0721b9ab151951a37f60b77264f7ad6341fe2b70 (patch) | |
tree | 4dc1b4893c804410449d56d33534dbe667ced7ce /vms | |
parent | 71ce8c74528f69acac1ccbb56b5cc3d20ddba7dd (diff) | |
download | perl-0721b9ab151951a37f60b77264f7ad6341fe2b70.tar.gz |
Unixish.h, doshish.h: Reorder terminations; simplify
The IO and memory terminations need to be after other things. Add a
comment so that future maintainers won't make the mistakes I did.
Also refactor so that amiga os doesn't have a separate list to get out
of sync
I suspect that the amiga termination should be moved to earlier in
the sequence, but absent any evidence; I'm leaving it unchanged.
vms destruction was missing a bunch of things and I didn't see any
reason to have special handling, so I changed it to just use the
standard, presuming the discrepancies were due to changes in the
standard not getting propagated to vms.
The common definitions are also moved to perl.c which is the only place
they are used (including cpan). This makes them available in all
circumstances. Otherwise, the #ifdef's for including the relevant
header files only include one, so there would be undefined macros.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/vmsish.h | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index ba228e5767..3e5dea7fa0 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -309,9 +309,8 @@ struct interp_intern { #define BIT_BUCKET "/dev/null" #define PERL_SYS_INIT_BODY(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); PERLIO_INIT; MALLOC_INIT -#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; \ - PERLIO_TERM; MALLOC_TERM; LOCALE_TERM; \ - ENV_TERM; +/* Use standard PERL_SYS_TERM_BODY */ + #define dXSUB_SYS dNOOP #define HAS_KILL #define HAS_WAIT |