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 377758e001b51d8d61cd14ef4c550be965f19e7c..4abbdeae2069fa5a55072c4bbef02de27afa3bb5 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1,7 +1,7 @@
 /**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *       $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.148 2009/06/05 20:32:00 adunstan Exp $
+ *       $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.149 2009/06/06 03:45:36 tgl Exp $
  *
  **********************************************************************/
 
@@ -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();