|
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 ofPL/Perl trigger function must be undef, " |
1450 | 1450 | "\"SKIP\", or \"MODIFY\"")));
|
1451 | 1451 | trv=NULL;
|
1452 | 1452 | }
|
|