|
1 | 1 | /********************************************************************** |
2 | 2 | * plperl.c - perl as a procedural language for PostgreSQL |
3 | 3 | * |
4 | | - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.148 2009/06/05 20:32:00 adunstan Exp $ |
| 4 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.149 2009/06/06 03:45:36 tgl Exp $ |
5 | 5 | * |
6 | 6 | **********************************************************************/ |
7 | 7 |
|
@@ -398,11 +398,8 @@ plperl_init_interp(void) |
398 | 398 | staticchar*embedding[3]= { |
399 | 399 | "","-e",PERLBOOT |
400 | 400 | }; |
401 | | - |
402 | 401 | intnargs=3; |
403 | 402 |
|
404 | | -char*dummy_perl_env[1]= {NULL }; |
405 | | - |
406 | 403 | #ifdefWIN32 |
407 | 404 |
|
408 | 405 | /* |
@@ -457,7 +454,11 @@ plperl_init_interp(void) |
457 | 454 | #if defined(PERL_SYS_INIT3)&& !defined(MYMALLOC) |
458 | 455 | /* only call this the first time through, as per perlembed man page */ |
459 | 456 | if (interp_state==INTERP_NONE) |
460 | | -PERL_SYS_INIT3(&nargs, (char***)&embedding, (char***)&dummy_perl_env); |
| 457 | +{ |
| 458 | +char*dummy_env[1]= {NULL }; |
| 459 | + |
| 460 | +PERL_SYS_INIT3(&nargs, (char***)&embedding, (char***)&dummy_env); |
| 461 | +} |
461 | 462 | #endif |
462 | 463 |
|
463 | 464 | plperl_held_interp=perl_alloc(); |
|