another small message tweak

petere · petere · commit 1491b4c47d24 · 2009-02-20T10:39:19.000Z
diff --git 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;
 		}

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`/**********************************************************************`
`2`	`2`	`* plperl.c - perl as a procedural language for PostgreSQL`
`3`	`3`	`*`
`4`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.145 2009/02/19 10:33:17 petere Exp $`
	`4`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.146 2009/02/20 10:39:19 petere Exp $`
`5`	`5`	`*`
`6`	`6`	`**********************************************************************/`
`7`	`7`
`@@ -1446,7 +1446,7 @@ plperl_trigger_handler(PG_FUNCTION_ARGS)`
`1446`	`1446`	`{`
`1447`	`1447`	`ereport(ERROR,`
`1448`	`1448`	`(errcode(ERRCODE_E_R_I_E_TRIGGER_PROTOCOL_VIOLATED),`
`1449`		`- errmsg("result of Perl trigger function must be undef, "`
	`1449`	`+ errmsg("result of PL/Perl trigger function must be undef, "`
`1450`	`1450`	`"\"SKIP\", or \"MODIFY\"")));`
`1451`	`1451`	`trv = NULL;`
`1452`	`1452`	`}`