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

bmomjian · bmomjian · commit 3dc1b2b71dc3 · 2001-03-07T16:09:09.000Z
in splitting code:

seva@sevasoft.kiev.ua
diff --git 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

Original file line number	Diff line number	Diff line change
`@@ -452,6 +452,7 @@ proc __PLTcl_loadmod_load_modules {conn} {`
`452`	`452`	`pg_exec $conn "insert into pltcl_modules values ( \`
`453`	`453`	`'$xname', $i, '$xpart')" \`
`454`	`454`	`] -clear`
	`455`	`+ incr i`
`455`	`456`	`}`
`456`	`457`
`457`	`458`	`pg_result [pg_exec $conn "commit;"] -clear`