Commitabc8a0a

committed

More rsi assignment line too.

1 parent0d1ebe0 commitabc8a0aCopy full SHA for abc8a0a

File tree

-4

lines changed

-4

lines changed

Lines changed: 4 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@`
`33`	`33`	`* ENHANCEMENTS, OR MODIFICATIONS.`
`34`	`34`	`*`
`35`	`35`	`* IDENTIFICATION`
`36`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.87 2005/08/1220:48:03 momjian Exp $`
	`36`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.88 2005/08/1221:09:34 momjian Exp $`
`37`	`37`	`*`
`38`	`38`	`**********************************************************************/`
`39`	`39`
`@@ -909,7 +909,7 @@ plperl_func_handler(PG_FUNCTION_ARGS)`
`909`	`909`	`SV*perlret;`
`910`	`910`	`Datumretval;`
`911`	`911`	`ReturnSetInfo*rsi;`
`912`		`-SV*array_ret=NULL;`
	`912`	`+SV*array_ret=NULL;`
`913`	`913`
`914`	`914`	`if (SPI_connect()!=SPI_OK_CONNECT)`
`915`	`915`	`elog(ERROR,"could not connect to SPI manager");`
`@@ -921,6 +921,8 @@ plperl_func_handler(PG_FUNCTION_ARGS)`
`921`	`921`	`plperl_current_tuple_store=0;`
`922`	`922`	`plperl_current_tuple_desc=0;`
`923`	`923`
	`924`	`+rsi= (ReturnSetInfo*)fcinfo->resultinfo;`
	`925`	`+`
`924`	`926`	`if (!rsi\|\| !IsA(rsi,ReturnSetInfo)\|\|`
`925`	`927`	`(rsi->allowedModes&SFRM_Materialize)==0\|\|`
`926`	`928`	`rsi->expectedDesc==NULL)`
`@@ -942,8 +944,6 @@ plperl_func_handler(PG_FUNCTION_ARGS)`
`942`	`944`	`if (SPI_finish()!=SPI_OK_FINISH)`
`943`	`945`	`elog(ERROR,"SPI_finish() failed");`
`944`	`946`
`945`		`-rsi= (ReturnSetInfo*)fcinfo->resultinfo;`
`946`		`-`
`947`	`947`	`if (prodesc->fn_retisset)`
`948`	`948`	`{`
`949`	`949`	`/* If the Perl function returned an arrayref, we pretend that it`

Comments

(0)