database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-17 06:41:24 +03:00
Code

Small changes to use the absolute path to system catalogs.

Browse Source 
Greg Sabino Mullane
This commit is contained in:
Tom Lane 2003-05-16 13:37:00 +00:00
parent 3d41da50f7
commit f9b232f019
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pl/tcl/modules/pltcl_loadmod.in
View File

@ -84,7 +84,7 @@ proc __PLTcl_loadmod_check_table {conn tabname expnames exptypes} {
set found 0 set found 0
pg_select $conn "select C.relname, A.attname, A.attnum, T.typname \ pg_select $conn "select C.relname, A.attname, A.attnum, T.typname \
from pg_class C, pg_attribute A, pg_type T \ from pg_catalog.pg_class C, pg_catalog.pg_attribute A, pg_catalog.pg_type T \
where C.relname = '$tabname' \ where C.relname = '$tabname' \
and A.attrelid = C.oid \ and A.attrelid = C.oid \
and A.attnum > 0 \ and A.attnum > 0 \

4
src/pl/tcl/pltcl.c
View File

@ -31,7 +31,7 @@
* ENHANCEMENTS, OR MODIFICATIONS. * ENHANCEMENTS, OR MODIFICATIONS.
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.69 2003/02/06 17:02:11 tgl Exp $ * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.70 2003/05/16 13:37:00 tgl Exp $
* *
**********************************************************************/ **********************************************************************/
@ -309,7 +309,7 @@ pltcl_init_load_unknown(Tcl_Interp *interp)
/************************************************************ /************************************************************
* Check if table pltcl_modules exists * Check if table pltcl_modules exists
************************************************************/ ************************************************************/
spi_rc = SPI_exec("select 1 from pg_class " spi_rc = SPI_exec("select 1 from pg_catalog.pg_class "
"where relname = 'pltcl_modules'", 1); "where relname = 'pltcl_modules'", 1);
SPI_freetuptable(SPI_tuptable); SPI_freetuptable(SPI_tuptable);
if (spi_rc != SPI_OK_SELECT) if (spi_rc != SPI_OK_SELECT)

4
src/pl/tcl/test/test_setup.sql
View File

@ -319,7 +319,7 @@ create function check_primkey() returns trigger as '
# Lookup the fields type in pg_attribute # Lookup the fields type in pg_attribute
# #
set n [spi_exec "select T.typname \\ set n [spi_exec "select T.typname \\
from pg_type T, pg_attribute A, pg_class C \\ from pg_catalog.pg_type T, pg_catalog.pg_attribute A, pg_catalog.pg_class C \\
where C.relname = ''[quote $keyrel]'' \\ where C.relname = ''[quote $keyrel]'' \\
and C.oid = A.attrelid \\ and C.oid = A.attrelid \\
and A.attname = ''[quote $key]'' \\ and A.attname = ''[quote $key]'' \\
@ -343,7 +343,7 @@ create function check_primkey() returns trigger as '
# #
# Lookup and remember the table name for later error messages # Lookup and remember the table name for later error messages
# #
spi_exec "select relname from pg_class \\ spi_exec "select relname from pg_catalog.pg_class \\
where oid = ''$TG_relid''::oid" where oid = ''$TG_relid''::oid"
set GD($planrel) $relname set GD($planrel) $relname
} }