summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorOlaf Flebbe <o.flebbe@science-computing.de>2000-11-19 20:33:30 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-11-20 01:58:11 +0000
commitfa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89 (patch)
tree551cec2742d1066daac417e04c5e1e00811b967e /sv.c
parent07d29b54c8a15c0fd1ebf8765665546568dfb928 (diff)
downloadperl-fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89.tar.gz
[perl 7711: EPOC] updates
Message-ID: <25575.974658810@www23.gmx.net> p4raw-id: //depot/perl@7758
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 7a6085ae5d..2cc3c43483 100644
--- a/sv.c
+++ b/sv.c
@@ -5134,7 +5134,7 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash)
}
if (GvHV(gv) && !HvNAME(GvHV(gv))) {
hv_clear(GvHV(gv));
-#if !defined( VMS) && !defined(EPOC) /* VMS has no environ array */
+#ifdef USE_ENVIRON_ARRAY
if (gv == PL_envgv)
environ[0] = Nullch;
#endif