Follow up a visit from the style police.

adunstan · adunstan · commit a6eeb8c10ddb · 2010-05-17T19:43:04.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.175 2010/05/13 16:39:43 adunstan Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.176 2010/05/17 19:43:04 adunstan Exp $
  *
  **********************************************************************/
 
@@ -706,7 +706,7 @@ plperl_trusted_init(void)
 	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)
 	{
@@ -719,7 +719,7 @@ plperl_trusted_init(void)
 		if (SvTRUE(ERRSV))
 			ereport(ERROR,
 					(errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),
-					 errcontext("While executing utf8fix.")));
+					 errcontext("while executing utf8fix")));
 	}
 	
 	/*
@@ -761,7 +761,7 @@ plperl_trusted_init(void)
 		if (SvTRUE(ERRSV))
 			ereport(ERROR,
 					(errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),
-					 errcontext("While executing plperl.on_plperl_init.")));
+					 errcontext("while executing plperl.on_plperl_init")));
 		
 	}
 }

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.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 $`
`5`	`5`	`*`
`6`	`6`	`**********************************************************************/`
`7`	`7`
`@@ -706,7 +706,7 @@ plperl_trusted_init(void)`
`706`	`706`	`if (SvTRUE(ERRSV))`
`707`	`707`	`ereport(ERROR,`
`708`	`708`	`(errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),`
`709`		`- errcontext("While executing PLC_TRUSTED.")));`
	`709`	`+ errcontext("while executing PLC_TRUSTED")));`
`710`	`710`
`711`	`711`	`if (GetDatabaseEncoding() == PG_UTF8)`
`712`	`712`	`{`
`@@ -719,7 +719,7 @@ plperl_trusted_init(void)`
`719`	`719`	`if (SvTRUE(ERRSV))`
`720`	`720`	`ereport(ERROR,`
`721`	`721`	`(errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),`
`722`		`- errcontext("While executing utf8fix.")));`
	`722`	`+ errcontext("while executing utf8fix")));`
`723`	`723`	`}`
`724`	`724`
`725`	`725`	`/*`
`@@ -761,7 +761,7 @@ plperl_trusted_init(void)`
`761`	`761`	`if (SvTRUE(ERRSV))`
`762`	`762`	`ereport(ERROR,`
`763`	`763`	`(errmsg("%s", strip_trailing_ws(SvPV_nolen(ERRSV))),`
`764`		`- errcontext("While executing plperl.on_plperl_init.")));`
	`764`	`+ errcontext("while executing plperl.on_plperl_init")));`
`765`	`765`
`766`	`766`	`}`
`767`	`767`	`}`