From a8b75b659450008020061bbad7adc1cdbcf703c8 Mon Sep 17 00:00:00 2001
From: tgl <tgl>
Date: Sat, 6 Jun 2009 03:45:36 +0000
Subject: [PATCH] Move variable declaration to avoid 'unused variable' warning
 when the ifdef doesn't trigger.  Not worth back-patching.  Per buildfarm
 reports.

---
 src/pl/plperl/plperl.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 339267d619..6ea60a212e 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -398,11 +398,8 @@ plperl_init_interp(void)
 	static char *embedding[3] = {
 		"", "-e", PERLBOOT
 	};
-
 	int nargs = 3;
 
-	char *dummy_perl_env[1] = { NULL }; 
-
 #ifdef WIN32
 
 	/*
@@ -457,7 +454,11 @@ plperl_init_interp(void)
 #if defined(PERL_SYS_INIT3) && !defined(MYMALLOC)
 	/* only call this the first time through, as per perlembed man page */
 	if (interp_state == INTERP_NONE)
-		PERL_SYS_INIT3(&nargs, (char ***) &embedding, (char***)&dummy_perl_env);
+	{
+		char *dummy_env[1] = { NULL }; 
+
+		PERL_SYS_INIT3(&nargs, (char ***) &embedding, (char ***) &dummy_env);
+	}
 #endif
 
 	plperl_held_interp = perl_alloc();
-- 
2.11.4.GIT