From 84d73a6dbc23dda43bf4d83ee71b344063524cbe Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Wed, 22 Jun 2005 16:45:51 +0000
Subject: Add a validator function for plperl.  Andrew Dunstan

---
 src/bin/scripts/createlang.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/bin/scripts/createlang.c')

diff --git a/src/bin/scripts/createlang.c b/src/bin/scripts/createlang.c
index e8015089c9a..d088dad4f97 100644
--- a/src/bin/scripts/createlang.c
+++ b/src/bin/scripts/createlang.c
@@ -5,7 +5,7 @@
  * Portions Copyright (c) 1996-2005, PostgreSQL Global Development Group
  * Portions Copyright (c) 1994, Regents of the University of California
  *
- * $PostgreSQL: pgsql/src/bin/scripts/createlang.c,v 1.16 2005/06/14 02:57:45 momjian Exp $
+ * $PostgreSQL: pgsql/src/bin/scripts/createlang.c,v 1.17 2005/06/22 16:45:50 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -191,12 +191,14 @@ main(int argc, char *argv[])
 	{
 		trusted = true;
 		handler = "plperl_call_handler";
+		validator = "plperl_validator";
 		object = "plperl";
 	}
 	else if (strcmp(langname, "plperlu") == 0)
 	{
 		trusted = false;
 		handler = "plperl_call_handler";
+		validator = "plperl_validator";
 		object = "plperl";
 	}
 	else if (strcmp(langname, "plpythonu") == 0)
-- 
cgit v1.2.3