diff options
| author | Jan Wieck <JanWieck@Yahoo.com> | 1998-11-23 16:50:54 +0000 |
|---|---|---|
| committer | Jan Wieck <JanWieck@Yahoo.com> | 1998-11-23 16:50:54 +0000 |
| commit | 07ffc4628e7d8400e0cb17a30f09b4ac922120f5 (patch) | |
| tree | 217ccb3939fed0a3271e76ef39e60880b2481746 | |
| parent | 6fef1a26ccda3856c9fe453e660ebdc15d0697aa (diff) | |
| download | postgresql-07ffc4628e7d8400e0cb17a30f09b4ac922120f5.tar.gz postgresql-07ffc4628e7d8400e0cb17a30f09b4ac922120f5.zip | |
Fixed bug in the unknown module. Module still tried to call
builtin SPI commands by their old SPI_* names. New names are spi_*.
Jan - 11/23/1998
| -rw-r--r-- | src/pl/tcl/modules/unknown.pltcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/pl/tcl/modules/unknown.pltcl b/src/pl/tcl/modules/unknown.pltcl index 830ee250137..4f0a3fa991a 100644 --- a/src/pl/tcl/modules/unknown.pltcl +++ b/src/pl/tcl/modules/unknown.pltcl @@ -10,10 +10,10 @@ proc unknown {proname args} { # On first call prepare the plans #----------------------------------------------------------- if {![info exists p_mod]} { - set p_mod [SPI_prepare \ + set p_mod [spi_prepare \ "select modname from pltcl_modfuncs \ where funcname = \$1" name] - set p_src [SPI_prepare \ + set p_src [spi_prepare \ "select modseq, modsrc from pltcl_modules \ where modname = \$1 \ order by modseq" name] @@ -22,7 +22,7 @@ proc unknown {proname args} { #----------------------------------------------------------- # Lookup the requested function in pltcl_modfuncs #----------------------------------------------------------- - set n [SPI_execp -count 1 $p_mod [list [quote $proname]]] + set n [spi_execp -count 1 $p_mod [list [quote $proname]]] if {$n != 1} { #----------------------------------------------------------- # Not found there either - now it's really unknown @@ -34,7 +34,7 @@ proc unknown {proname args} { # Collect the source pieces from pltcl_modules #----------------------------------------------------------- set src "" - SPI_execp $p_src [list [quote $modname]] { + spi_execp $p_src [list [quote $modname]] { append src $modsrc } |