diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2000-04-16 04:19:41 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2000-04-16 04:19:41 +0000 |
| commit | 215c60dc21216d3b62cc0b7a6ccbabdb65e2f4cc (patch) | |
| tree | 2dd0b3dc1444ca56c16e3eef9f3a797e6607a38e /src/pl/plperl/plperl.c | |
| parent | 1460dd0eff19e79ac964fde508db8c7c1cb77d07 (diff) | |
| download | postgresql-215c60dc21216d3b62cc0b7a6ccbabdb65e2f4cc.tar.gz postgresql-215c60dc21216d3b62cc0b7a6ccbabdb65e2f4cc.zip | |
Show failing OID in 'cache lookup failed' messages;
print OIDs as %u not %d.
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index c66c4dd3779..9af944094f5 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -513,7 +513,8 @@ plperl_func_handler(FmgrInfo *proinfo, { free(prodesc->proname); free(prodesc); - elog(ERROR, "plperl: cache lookup from pg_proc failed"); + elog(ERROR, "plperl: cache lookup for proc %u failed", + proinfo->fn_oid); } procStruct = (Form_pg_proc) GETSTRUCT(procTup); @@ -528,7 +529,8 @@ plperl_func_handler(FmgrInfo *proinfo, { free(prodesc->proname); free(prodesc); - elog(ERROR, "plperl: cache lookup for return type failed"); + elog(ERROR, "plperl: cache lookup for return type %u failed", + procStruct->prorettype); } typeStruct = (Form_pg_type) GETSTRUCT(typeTup); @@ -558,7 +560,8 @@ plperl_func_handler(FmgrInfo *proinfo, { free(prodesc->proname); free(prodesc); - elog(ERROR, "plperl: cache lookup for argument type failed"); + elog(ERROR, "plperl: cache lookup for argument type %u failed", + procStruct->proargtypes[i]); } typeStruct = (Form_pg_type) GETSTRUCT(typeTup); @@ -745,7 +748,8 @@ plperl_trigger_handler(FmgrInfo *proinfo) { free(prodesc->proname); free(prodesc); - elog(ERROR, "plperl: cache lookup from pg_proc failed"); + elog(ERROR, "plperl: cache lookup for proc %u failed", + proinfo->fn_oid); } procStruct = (Form_pg_proc) GETSTRUCT(procTup); @@ -1064,9 +1068,9 @@ plperl_trigger_handler(FmgrInfo *proinfo) 0, 0, 0); if (!HeapTupleIsValid(typeTup)) { - elog(ERROR, "plperl: Cache lookup for attribute '%s' type %ld failed", + elog(ERROR, "plperl: Cache lookup for attribute '%s' type %u failed", ret_values[--i], - ObjectIdGetDatum(tupdesc->attrs[attnum - 1]->atttypid)); + tupdesc->attrs[attnum - 1]->atttypid); } typinput = (Oid) (((Form_pg_type) GETSTRUCT(typeTup))->typinput); typelem = (Oid) (((Form_pg_type) GETSTRUCT(typeTup))->typelem); @@ -2081,8 +2085,8 @@ plperl_set_tuple_values(Tcl_Interp *interp, char *arrayname, 0, 0, 0); if (!HeapTupleIsValid(typeTup)) { - elog(ERROR, "plperl: Cache lookup for attribute '%s' type %ld failed", - attname, ObjectIdGetDatum(tupdesc->attrs[i]->atttypid)); + elog(ERROR, "plperl: Cache lookup for attribute '%s' type %u failed", + attname, tupdesc->attrs[i]->atttypid); } typoutput = (Oid) (((Form_pg_type) GETSTRUCT(typeTup))->typoutput); @@ -2157,8 +2161,8 @@ plperl_build_tuple_argument(HeapTuple tuple, TupleDesc tupdesc) 0, 0, 0); if (!HeapTupleIsValid(typeTup)) { - elog(ERROR, "plperl: Cache lookup for attribute '%s' type %ld failed", - attname, ObjectIdGetDatum(tupdesc->attrs[i]->atttypid)); + elog(ERROR, "plperl: Cache lookup for attribute '%s' type %u failed", + attname, tupdesc->attrs[i]->atttypid); } typoutput = (Oid) (((Form_pg_type) GETSTRUCT(typeTup))->typoutput); |