diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2000-11-19 20:33:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 01:58:11 +0000 |
| commit | 592e122443b3353a1666ce9e276ef56868c3c0fb (patch) | |
| tree | 551cec2742d1066daac417e04c5e1e00811b967e /perl.c | |
| parent | 38502e56212ab0364a2a0955579a94676ee4ba0c (diff) | |
| download | perl-592e122443b3353a1666ce9e276ef56868c3c0fb.tar.gz | |
[perl 7711: EPOC] updates
Message-ID: <25575.974658810@www23.gmx.net>
p4raw-id: //depot/perl@7758
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -839,7 +839,7 @@ setuid perl scripts securely.\n"); PL_origargv = argv; PL_origargc = argc; -#if !defined( VMS) && !defined(EPOC) /* VMS doesn't have environ array */ +#ifdef USE_ENVIRON_ARRAY PL_origenviron = environ; #endif @@ -3322,7 +3322,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register GvMULTI_on(PL_envgv); hv = GvHVn(PL_envgv); hv_magic(hv, PL_envgv, 'E'); -#if !defined( VMS) && !defined(EPOC) && !defined(MACOS_TRADITIONAL) /* VMS doesn't have environ array */ +#ifdef USE_ENVIRON_ARRAY /* Note that if the supplied env parameter is actually a copy of the global environ then it may now point to free'd memory if the environment has been modified since. To avoid this |