[Zope-Checkins] CVS: Products/DCOracle2/src - dco2.c:1.133

[Matthew T. Kromer]

Update of /cvs-repository/Products/DCOracle2/src
In directory cvs.zope.org:/tmp/cvs-serv30381/src

Modified Files:
	dco2.c 
Log Message:
Handle describes of empty packages without crashing


=== Products/DCOracle2/src/dco2.c 1.132 => 1.133 ===
--- Products/DCOracle2/src/dco2.c:1.132	Tue May  6 12:08:16 2003
+++ Products/DCOracle2/src/dco2.c	Tue May  6 12:29:22 2003
@@ -2214,8 +2214,12 @@
 	}
 	*/
 
-	for (i=0; i <= columns; i++) {
+	i = 0;
 
+	/* Fudge the columns to not scan empty packages */
+	if (attribute == OCI_ATTR_LIST_SUBPROGRAMS && columns == 0) i = 1;
+
+	for (; i <= columns; i++) {
 		TRACE(T_HCALL,("sAsAd", "OCIParamGet", parmh,
 			"OCI_DTYPE_PARAM", &cparamh, i));
 		status = OCIParamGet((dvoid *) parmh, OCI_DTYPE_PARAM,