database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-02 11:44:50 +03:00
Code

Move variable declaration to avoid 'unused variable' warning when the

Browse Source 
ifdef doesn't trigger.  Not worth back-patching.  Per buildfarm reports.
This commit is contained in:
Tom Lane 2009-06-06 03:45:36 +00:00
parent 356eea24ce
commit af98bb2ad7
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/pl/plperl/plperl.c
View File

@ -1,7 +1,7 @@
/********************************************************************** /**********************************************************************
* plperl.c - perl as a procedural language for PostgreSQL * 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] = { static char *embedding[3] = {
"", "-e", PERLBOOT "", "-e", PERLBOOT
}; };
int nargs = 3; int nargs = 3;
char *dummy_perl_env[1] = { NULL };
#ifdef WIN32 #ifdef WIN32
/* /*
@ -457,7 +454,11 @@ plperl_init_interp(void)
#if defined(PERL_SYS_INIT3) && !defined(MYMALLOC) #if defined(PERL_SYS_INIT3) && !defined(MYMALLOC)
/* only call this the first time through, as per perlembed man page */ /* only call this the first time through, as per perlembed man page */
if (interp_state == INTERP_NONE) 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 #endif
plperl_held_interp = perl_alloc(); plperl_held_interp = perl_alloc();