Message style tuning

petere · petere · commit ab5694e80d69 · 2010-03-18T19:02:46.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.172 2010/03/17 21:31:17 petere Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.173 2010/03/18 19:02:46 petere Exp $
  *
  **********************************************************************/
 
@@ -1306,7 +1306,7 @@ plperl_create_sub(plperl_proc_desc *prodesc, char *s, Oid fn_oid)
 
 	if (!subref)
 		ereport(ERROR,
-				(errmsg("didn't get a GLOB from compiling %s via %s",
+				(errmsg("did not get a GLOB from compiling function \"%s\" via %s",
 						prodesc->proname, compile_sub)));
 
 	prodesc->reference = newSVsv(subref);

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.172 2010/03/17 21:31:17 petere Exp $`
	`4`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.173 2010/03/18 19:02:46 petere Exp $`
`5`	`5`	`*`
`6`	`6`	`**********************************************************************/`
`7`	`7`
`@@ -1306,7 +1306,7 @@ plperl_create_sub(plperl_proc_desc prodesc, char s, Oid fn_oid)`
`1306`	`1306`
`1307`	`1307`	`if (!subref)`
`1308`	`1308`	`ereport(ERROR,`
`1309`		`- (errmsg("didn't get a GLOB from compiling %s via %s",`
	`1309`	`+ (errmsg("did not get a GLOB from compiling function \"%s\" via %s",`
`1310`	`1310`	`prodesc->proname, compile_sub)));`
`1311`	`1311`
`1312`	`1312`	`prodesc->reference = newSVsv(subref);`