Add pg_catalog to pltcl code - Mailing list pgsql-patches

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
NotDashEscaped: You need GnuPG to verify this message


Small changes to use the absolute path to system catalogs:

--
Greg Sabino Mullane greg@turnstep.com
PGP Key: 0x14964AC8 200305051153



? test/test.out
Index: pltcl.c
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/pltcl.c,v
retrieving revision 1.69
diff -c -r1.69 pltcl.c
*** pltcl.c    2003/02/06 17:02:11    1.69
--- pltcl.c    2003/05/05 15:52:06
***************
*** 309,315 ****
      /************************************************************
       * Check if table pltcl_modules exists
       ************************************************************/
!     spi_rc = SPI_exec("select 1 from pg_class "
                        "where relname = 'pltcl_modules'", 1);
      SPI_freetuptable(SPI_tuptable);
      if (spi_rc != SPI_OK_SELECT)
--- 309,315 ----
      /************************************************************
       * Check if table pltcl_modules exists
       ************************************************************/
!     spi_rc = SPI_exec("select 1 from pg_catalog.pg_class "
                        "where relname = 'pltcl_modules'", 1);
      SPI_freetuptable(SPI_tuptable);
      if (spi_rc != SPI_OK_SELECT)
Index: modules/pltcl_loadmod.in
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/modules/pltcl_loadmod.in,v
retrieving revision 1.2
diff -c -r1.2 pltcl_loadmod.in
*** modules/pltcl_loadmod.in    2001/05/11 23:38:06    1.2
--- modules/pltcl_loadmod.in    2003/05/05 15:52:06
***************
*** 84,90 ****
      set found 0

      pg_select $conn "select C.relname, A.attname, A.attnum, T.typname     \
!             from pg_class C, pg_attribute A, pg_type T        \
          where C.relname = '$tabname'                \
            and A.attrelid = C.oid                \
            and A.attnum > 0                    \
--- 84,90 ----
      set found 0

      pg_select $conn "select C.relname, A.attname, A.attnum, T.typname     \
!             from pg_catalog.pg_class C, pg_catalog.pg_attribute A, pg_catalog.pg_type T        \
          where C.relname = '$tabname'                \
            and A.attrelid = C.oid                \
            and A.attnum > 0                    \
Index: test/test_setup.sql
===================================================================
RCS file: /projects/cvsroot/pgsql-server/src/pl/tcl/test/test_setup.sql,v
retrieving revision 1.5
diff -c -r1.5 test_setup.sql
*** test/test_setup.sql    2002/10/19 22:01:45    1.5
--- test/test_setup.sql    2003/05/05 15:52:06
***************
*** 319,325 ****
          # Lookup the fields type in pg_attribute
          #
          set n [spi_exec "select T.typname            \\
!             from pg_type T, pg_attribute A, pg_class C    \\
          where C.relname  = ''[quote $keyrel]''        \\
            and C.oid      = A.attrelid            \\
            and A.attname  = ''[quote $key]''        \\
--- 319,325 ----
          # Lookup the fields type in pg_attribute
          #
          set n [spi_exec "select T.typname            \\
!             from pg_catlog.pg_type T, pg_catalog.pg_attribute A, pg_catalog.pg_class C    \\
          where C.relname  = ''[quote $keyrel]''        \\
            and C.oid      = A.attrelid            \\
            and A.attname  = ''[quote $key]''        \\
***************
*** 343,349 ****
      #
      # Lookup and remember the table name for later error messages
      #
!     spi_exec "select relname from pg_class            \\
          where oid = ''$TG_relid''::oid"
      set GD($planrel) $relname
      }
--- 343,349 ----
      #
      # Lookup and remember the table name for later error messages
      #
!     spi_exec "select relname from pg_catalog.pg_class            \\
          where oid = ''$TG_relid''::oid"
      set GD($planrel) $relname
      }



-----BEGIN PGP SIGNATURE-----
Comment: http://www.turnstep.com/pgp.html

iD8DBQE+tokmvJuQZxSWSsgRAuTWAKC3mY3NkCXE16M/3Qj9ON/j9K57SACg6Zg9
jN5sYcyajS5pRyIaOx8Mrt0=
=NQgU
-----END PGP SIGNATURE-----