summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorOlaf Flebbe <o.flebbe@science-computing.de>2000-09-21 01:16:26 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-03 00:34:59 +0000
commit83d23c414da20b30960268ed16ecd8f8135c35bb (patch)
treeb0e2bf3556083784ba28cbb74402f950712d81d9 /sv.c
parent2981be43706eb15813f2810c4e0d84ca96f8427c (diff)
downloadperl-83d23c414da20b30960268ed16ecd8f8135c35bb.tar.gz
Epoc update
Message-ID: <26423.969484586@www10.gmx.net> p4raw-id: //depot/perl@7124
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 e068d0a83f..e7bd003625 100644
--- a/sv.c
+++ b/sv.c
@@ -5119,7 +5119,7 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash)
}
if (GvHV(gv) && !HvNAME(GvHV(gv))) {
hv_clear(GvHV(gv));
-#ifndef VMS /* VMS has no environ array */
+#if !defined( VMS) && !defined(EPOC) /* VMS has no environ array */
if (gv == PL_envgv)
environ[0] = Nullch;
#endif