remove unnecessary and now inaccurate cast which I should have removed with other...

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 303024dd70d893300b25736579d70655a8c5fcce..c7b09de35f4ed267f144c8c7888370d91065d237 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1,7 +1,7 @@
 /**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *       $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.124 2007/01/27 01:55:57 adunstan Exp $
+ *       $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.125 2007/01/27 16:46:21 adunstan Exp $
  *
  **********************************************************************/
 
@@ -2142,8 +2142,7 @@ plperl_spi_prepare(char *query, int argc, SV **argv)
                        getTypeInputInfo(typId, &typInput, &typIOParam);
 
                        qdesc->argtypes[i] = typId;
-                       perm_fmgr_info((Form_pg_type) typInput,
-                                                  &(qdesc->arginfuncs[i]));
+                       perm_fmgr_info(typInput, &(qdesc->arginfuncs[i]));
                        qdesc->argtypioparams[i] = typIOParam;
                }