From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 15 Jun 2003 07:37:02 +0000 (+0000)
Subject: Most often unused variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bdbb4723ae10faa8f5ebfec78d78879f0c6b8e1;p=p5sagit%2Fp5-mst-13.2.git

Most often unused variables.

p4raw-id: //depot/perl@19785
---

diff --git a/perl.c b/perl.c
index 622d2de..a7024c1 100644
--- a/perl.c
+++ b/perl.c
@@ -3518,8 +3518,10 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
     char *s;
     SV *sv;
     GV* tmpgv;
+#ifdef NEED_ENVIRON_DUP_FOR_MODIFY
     char **dup_env_base = 0;
     int dup_env_count = 0;
+#endif
 
     PL_toptarget = NEWSV(0,0);
     sv_upgrade(PL_toptarget, SVt_PVFM);