Improve error message for erroneous use of 'opaque' as plperl argument

or return type.

src/pl/plperl/plperl.c

@@ -33,7 +33,7 @@
  *	  ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.16 2000/11/20 20:36:51 tgl Exp $
+ *	  $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.17 2000/12/08 00:11:55 tgl Exp $
  *
  **********************************************************************/
 
@@ -545,6 +545,10 @@ plperl_func_handler(PG_FUNCTION_ARGS)
 		{
 			free(prodesc->proname);
 			free(prodesc);
+			if (!OidIsValid(procStruct->prorettype))
+				elog(ERROR, "plperl functions cannot return type \"opaque\""
+					 "\n\texcept when used as triggers");
+			else
 				elog(ERROR, "plperl: cache lookup for return type %u failed",
 					 procStruct->prorettype);
 		}
@@ -577,6 +581,9 @@ plperl_func_handler(PG_FUNCTION_ARGS)
 			{
 				free(prodesc->proname);
 				free(prodesc);
+				if (!OidIsValid(procStruct->proargtypes[i]))
+					elog(ERROR, "plperl functions cannot take type \"opaque\"");
+				else
 					elog(ERROR, "plperl: cache lookup for argument type %u failed",
 						 procStruct->proargtypes[i]);
 			}