[svn:dbd-oracle] r14690 - dbd-oracle/branches/exe_array

Author: byterock
Date: Tue Feb  8 11:15:28 2011
New Revision: 14690

Modified:
   dbd-oracle/branches/exe_array/dbdimp.c

Log:
Added in new array item for error

Modified: dbd-oracle/branches/exe_array/dbdimp.c
==============================================================================
--- dbd-oracle/branches/exe_array/dbdimp.c	(original)
+++ dbd-oracle/branches/exe_array/dbdimp.c	Tue Feb  8 11:15:28 2011
@@ -3773,6 +3773,7 @@
 	    sv_setiv(err_count,num_errs);
 		err_svs[0] = newSViv((IV)0);
 		err_svs[1] = newSVpvn("", 0);
+		err_svs[2] = newSVpvn("S1000",5);
 		OCIHandleAlloc_ok(imp_sth->envhp, &row_errhp, OCI_HTYPE_ERROR, status);
 		OCIHandleAlloc_ok(imp_sth->envhp, &tmp_errhp, OCI_HTYPE_ERROR, status);
 		for(i = 0; (unsigned int) i < num_errs; i++) {
@@ -3788,7 +3789,7 @@
 			err_code = oci_error_get(row_errhp, exe_status, NULL, err_svs[1], debug);
 			sv_setiv(err_svs[0], (IV)err_code);
 			av_store(tuples_status_av, row_off,
-					 newRV_noinc((SV *)(av_make(2, err_svs))));
+					 newRV_noinc((SV *)(av_make(3, err_svs))));
 		}
 		OCIHandleFree_log_stat(tmp_errhp, OCI_HTYPE_ERROR,  status);
 		OCIHandleFree_log_stat(row_errhp, OCI_HTYPE_ERROR,  status);