From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Sat, 6 Jun 2009 03:45:36 +0000 (+0000)
Subject: Move variable declaration to avoid 'unused variable' warning when the
X-Git-Url: http://waps.l3s.uni-hannover.de/gitweb/?a=commitdiff_plain;h=1c4ac5fd81aed94ae9eb3180407aa7c27ac17ac2;p=users%2Fsimon%2Fpostgres.git

Move variable declaration to avoid 'unused variable' warning when the
ifdef doesn't trigger.  Not worth back-patching.  Per buildfarm reports.
---

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();