Index: createlang.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/bin/scripts/createlang.c,v
retrieving revision 1.15
diff -c -r1.15 createlang.c
*** createlang.c	31 Dec 2004 22:03:17 -0000	1.15
--- createlang.c	21 Jun 2005 23:49:59 -0000
***************
*** 191,202 ****
--- 191,204 ----
  	{
  		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)