From 3dc1b2b71dc3a6b6713a228d39c17afc4cfef25c Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Wed, 7 Mar 2001 16:09:09 +0000
Subject: [PATCH] pltcl_loadmod has problems with big (>4k) modules because of
 missing incr in splitting code:

seva@sevasoft.kiev.ua
---
 src/pl/tcl/modules/pltcl_loadmod | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/pl/tcl/modules/pltcl_loadmod b/src/pl/tcl/modules/pltcl_loadmod
index d437f76b08b..615dc1c7552 100755
--- a/src/pl/tcl/modules/pltcl_loadmod
+++ b/src/pl/tcl/modules/pltcl_loadmod
@@ -452,6 +452,7 @@ proc __PLTcl_loadmod_load_modules {conn} {
 	    	pg_exec $conn "insert into pltcl_modules values (	\
 			'$xname', $i, '$xpart')"			\
 	    ] -clear
+	    incr i
 	}
 
         pg_result [pg_exec $conn "commit;"] -clear
-- 
GitLab