11/**********************************************************************
22 * plperl.c - perl as a procedural language for PostgreSQL
33 *
4- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.175 2010/05/13 16:39:43 adunstan Exp $
4+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.176 2010/05/17 19:43:04 adunstan Exp $
55 *
66 **********************************************************************/
77
@@ -706,7 +706,7 @@ plperl_trusted_init(void)
706706if (SvTRUE (ERRSV ))
707707ereport (ERROR ,
708708(errmsg ("%s" ,strip_trailing_ws (SvPV_nolen (ERRSV ))),
709- errcontext ("While executing PLC_TRUSTED. " )));
709+ errcontext ("while executing PLC_TRUSTED" )));
710710
711711if (GetDatabaseEncoding ()== PG_UTF8 )
712712{
@@ -719,7 +719,7 @@ plperl_trusted_init(void)
719719if (SvTRUE (ERRSV ))
720720ereport (ERROR ,
721721(errmsg ("%s" ,strip_trailing_ws (SvPV_nolen (ERRSV ))),
722- errcontext ("While executing utf8fix. " )));
722+ errcontext ("while executing utf8fix" )));
723723}
724724
725725/*
@@ -761,7 +761,7 @@ plperl_trusted_init(void)
761761if (SvTRUE (ERRSV ))
762762ereport (ERROR ,
763763(errmsg ("%s" ,strip_trailing_ws (SvPV_nolen (ERRSV ))),
764- errcontext ("While executing plperl.on_plperl_init. " )));
764+ errcontext ("while executing plperl.on_plperl_init" )));
765765
766766}
767767}