diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:28:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:28:58 +0000 |
| commit | 1199dd43248b0956628341f2a63939a8378c8016 (patch) | |
| tree | 57ca33b5b1f2b53e78bef1deb208fbccb0860308 /vms | |
| parent | 24130e51d52fd22992dd62e432895a9115f3a585 (diff) | |
| download | perl-1199dd43248b0956628341f2a63939a8378c8016.tar.gz | |
Move the PL_earlytaint initialization to the PERL_SYS_INIT()
as per suggestion from Sarathy.
p4raw-id: //depot/perl@19878
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vmsish.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 076a6967f6..1ab2df09e0 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -331,7 +331,7 @@ struct interp_intern { #endif #define BIT_BUCKET "_NLA0:" -#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); MALLOC_INIT +#define PERL_SYS_INIT(c,v) EARLY_INIT2(*c,*v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); MALLOC_INIT #define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM #define dXSUB_SYS #define HAS_KILL |