From ee57938c0b332d8b4283e0165820564eda68a56b Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Sat, 27 Jan 2007 16:46:21 +0000
Subject: [PATCH] remove unnecessary and now inaccurate cast which I should
 have removed with other old code.

---
 src/pl/plperl/plperl.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 303024dd70..c7b09de35f 100644
--- 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;
 		}
 
-- 
2.40.0