pltcl_loadmod has problems with big (>4k) modules because of missing incr

in splitting code:

seva@sevasoft.kiev.ua

diff --git a/src/pl/tcl/modules/pltcl_loadmod b/src/pl/tcl/modules/pltcl_loadmod
index d437f76..615dc1c 100755 (executable)
--- 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