|
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.124 2007/01/2701:55:57 adunstan Exp $ |
| 4 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.125 2007/01/2716:46:21 adunstan Exp $ |
5 | 5 | * |
6 | 6 | **********************************************************************/ |
7 | 7 |
|
@@ -2142,8 +2142,7 @@ plperl_spi_prepare(char *query, int argc, SV **argv) |
2142 | 2142 | getTypeInputInfo(typId,&typInput,&typIOParam); |
2143 | 2143 |
|
2144 | 2144 | qdesc->argtypes[i]=typId; |
2145 | | -perm_fmgr_info((Form_pg_type)typInput, |
2146 | | -&(qdesc->arginfuncs[i])); |
| 2145 | +perm_fmgr_info(typInput,&(qdesc->arginfuncs[i])); |
2147 | 2146 | qdesc->argtypioparams[i]=typIOParam; |
2148 | 2147 | } |
2149 | 2148 |
|
|