Commitf9b232f

committed

Small changes to use the absolute path to system catalogs.

Greg Sabino Mullane

1 parent3d41da5 commitf9b232fCopy full SHA for f9b232f

File tree

-5

lines changed

-5

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -84,7 +84,7 @@ proc __PLTcl_loadmod_check_table {conn tabname expnames exptypes} {`
`84`	`84`	`set found 0`
`85`	`85`
`86`	`86`	`pg_select$conn"select C.relname, A.attname, A.attnum, T.typname\`
`87`		`- from pg_class C, pg_attribute A, pg_type T\`
	`87`	`+ frompg_catalog.pg_class C,pg_catalog.pg_attribute A,pg_catalog.pg_type T\`
`88`	`88`	`where C.relname = '$tabname'\`
`89`	`89`	`and A.attrelid = C.oid\`
`90`	`90`	`and A.attnum > 0\`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@`
`31`	`31`	`* ENHANCEMENTS, OR MODIFICATIONS.`
`32`	`32`	`*`
`33`	`33`	`* IDENTIFICATION`
`34`		`- * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.69 2003/02/06 17:02:11 tgl Exp $`
	`34`	`+ * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.70 2003/05/16 13:37:00 tgl Exp $`
`35`	`35`	`*`
`36`	`36`	`**********************************************************************/`
`37`	`37`
`@@ -309,7 +309,7 @@ pltcl_init_load_unknown(Tcl_Interp *interp)`
`309`	`309`	`/************************************************************`
`310`	`310`	`* Check if table pltcl_modules exists`
`311`	`311`	`************************************************************/`
`312`		`-spi_rc=SPI_exec("select 1 from pg_class "`
	`312`	`+spi_rc=SPI_exec("select 1 frompg_catalog.pg_class "`
`313`	`313`	`"where relname = 'pltcl_modules'",1);`
`314`	`314`	`SPI_freetuptable(SPI_tuptable);`
`315`	`315`	`if (spi_rc!=SPI_OK_SELECT)`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -319,7 +319,7 @@ create function check_primkey() returns trigger as '`
`319`	`319`	`# Lookup the fields type in pg_attribute`
`320`	`320`	`#`
`321`	`321`	`set n [spi_exec "select T.typname\\`
`322`		`- from pg_type T, pg_attribute A, pg_class C\\`
	`322`	`+ frompg_catalog.pg_type T,pg_catalog.pg_attribute A,pg_catalog.pg_class C\\`
`323`	`323`	`where C.relname =''[quote $keyrel]''\\`
`324`	`324`	`and C.oid = A.attrelid\\`
`325`	`325`	`and A.attname =''[quote $key]''\\`
`@@ -343,7 +343,7 @@ create function check_primkey() returns trigger as '`
`343`	`343`	`#`
`344`	`344`	`# Lookup and remember the table name for later error messages`
`345`	`345`	`#`
`346`		`-spi_exec "select relname from pg_class\\`
	`346`	`+spi_exec "select relname frompg_catalog.pg_class\\`
`347`	`347`	`where oid =''$TG_relid''::oid"`
`348`	`348`	`set GD($planrel) $relname`
`349`	`349`	`}`

Comments

(0)