git.postgresql.org Git - postgresql.git/commitdiff

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c

index 449b283462e51ea72b187e95da83ca888528cafb..08e88838c8a4cf99e96d372eb44fa7dc6f2f92f7 100644 (file)

--- a/src/pl/plperl/plperl.c

+++ b/src/pl/plperl/plperl.c

/**********************************************************************

* plperl.c - perl as a procedural language for PostgreSQL

*

- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.169 2010年02月26日 02:01:33 momjian Exp $

+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.170 2010年03月09日 02:48:33 adunstan Exp $

*

**********************************************************************/

{

int spi_rv;

+ pg_verifymbstr(query, strlen(query), false);

+

spi_rv = SPI_execute(query, current_call_data->prodesc->fn_readonly,

limit);

ret_hv = plperl_spi_execute_fetch_result(SPI_tuptable, SPI_processed,

void *plan;

Portal portal;

+ /* Make sure the query is validly encoded */

+ pg_verifymbstr(query, strlen(query), false);

+

/* Create a cursor for the query */

plan = SPI_prepare(query, 0, NULL);

if (plan == NULL)

qdesc->argtypioparams[i] = typIOParam;

}

+ /* Make sure the query is validly encoded */

+ pg_verifymbstr(query, strlen(query), false);

+

/************************************************************

* Prepare the plan and check for errors

************************************************************/