From 07ffc4628e7d8400e0cb17a30f09b4ac922120f5 Mon Sep 17 00:00:00 2001
From: Jan Wieck <JanWieck@Yahoo.com>
Date: Mon, 23 Nov 1998 16:50:54 +0000
Subject: [PATCH] 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
---
 src/pl/tcl/modules/unknown.pltcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/pl/tcl/modules/unknown.pltcl b/src/pl/tcl/modules/unknown.pltcl
index 830ee25013..4f0a3fa991 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
     }
 
-- 
2.40.0