diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 0cf33cd7d8de8fc003924d1f6602d4b34edae470..7c6cc868cd4dab3fcd1387a5f4dd7e97ccbddd51 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.145 2009/02/19 10:33:17 petere Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.146 2009/02/20 10:39:19 petere Exp $
  *
  **********************************************************************/
 
@@ -1446,7 +1446,7 @@ plperl_trigger_handler(PG_FUNCTION_ARGS)
 		{
 			ereport(ERROR,
 					(errcode(ERRCODE_E_R_I_E_TRIGGER_PROTOCOL_VIOLATED),
-					 errmsg("result of Perl trigger function must be undef, "
+					 errmsg("result of PL/Perl trigger function must be undef, "
 							"\"SKIP\", or \"MODIFY\"")));
 			trv = NULL;
 		}