/**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *   $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.150.2.7 2010/05/13 16:40:36 adunstan Exp $
+ *   $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.150.2.8 2010/05/17 20:46:53 adunstan Exp $
  *
  **********************************************************************/
 
    if (SvTRUE(ERRSV))
        ereport(ERROR,
                (errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),
-                errcontext("While executing PLC_TRUSTED.")));
+                errcontext("while executing PLC_TRUSTED")));
 
    if (GetDatabaseEncoding() == PG_UTF8)
    {
        if (SvTRUE(ERRSV))
            ereport(ERROR,
                    (errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),
-                    errcontext("While executing utf8fix.")));
+                    errcontext("while executing utf8fix")));
    }
 
    /*