diff --git a/src/backend/libpq/auth.c b/src/backend/libpq/auth.c
index 2c89b8628cace55e136c8492b6c76297d78b80ec..5648a45dfe7eb3543be8fe84026e6438c4d890f0 100644
--- a/src/backend/libpq/auth.c
+++ b/src/backend/libpq/auth.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/backend/libpq/auth.c,v 1.201 2010/05/26 20:47:13 tgl Exp $
+ *	  $PostgreSQL: pgsql/src/backend/libpq/auth.c,v 1.202 2010/06/29 04:12:47 petere Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -2506,7 +2506,7 @@ CheckCertAuth(Port *port)
 		strlen(port->peer_cn) <= 0)
 	{
 		ereport(LOG,
-				(errmsg("certificate authentication failed for user \"%s\": client certificate contains no username",
+				(errmsg("certificate authentication failed for user \"%s\": client certificate contains no user name",
 						port->user_name)));
 		return STATUS_ERROR;
 	}
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index b22801b851046170f541b308ea5e9f050f5941ea..7d62caa4692bc2964637a06683e0f5e2c339a68e 100644
--- 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.177 2010/06/16 14:50:34 adunstan Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.178 2010/06/29 04:12:47 petere Exp $
  *
  **********************************************************************/
 
@@ -1316,7 +1316,7 @@ plperl_create_sub(plperl_proc_desc *prodesc, char *s, Oid fn_oid)
 
 	if (!subref)
 		ereport(ERROR,
-				(errmsg("didn't get a CODE ref from compiling %s",
+				(errmsg("didn't get a CODE reference from compiling function \"%s\"",
 						prodesc->proname)));
 	
 	prodesc->reference = subref;