summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorAbhijit Menon-Sen <ams@wiw.org>2001-06-16 13:11:19 +0530
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-16 23:18:37 +0000
commita3f1c6fb5f9cb8f8a03d70550bf7f1ebfba11774 (patch)
tree67599a33c08fe479c790f00c22630f89ecee952a /perl.c
parent4521542890c02b2ddcb4a39429066bc380e4e5e7 (diff)
downloadperl-a3f1c6fb5f9cb8f8a03d70550bf7f1ebfba11774.tar.gz
Re: DYNAMIC_ENV_FETCH HvNAME abuse.
Message-ID: <20010616074119.A24720@lustre.linux.in> p4raw-id: //depot/perl@10654
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index ffb5150740..a846890266 100644
--- a/perl.c
+++ b/perl.c
@@ -3443,9 +3443,6 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
}
#endif /* NEED_ENVIRON_DUP_FOR_MODIFY */
#endif /* USE_ENVIRON_ARRAY */
-#ifdef DYNAMIC_ENV_FETCH
- HvNAME(hv) = savepv(ENV_HV_NAME);
-#endif
}
TAINT_NOT;
if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV)))