On Mon, Jan 08, 2007 at 09:46:09PM +0000, Nathan Morrow wrote:
> Below are the test runs of the following script:
>
> **** Test the new proposed version
> -> ora_fetch
> <- () [0 items]
> $ora_errno is DEFINED
> $ora_errno = 0
> !! warn: 0 CLEARED by call to finish method
> -> finish for DBD::Oracle::st (DBI::st=HASH(0x12f864)~0x29d784)
> <- finish= 1 at test_fetch.pl line 21
Try this (also untested) in addition to the previous patch:
--- dbdimp.c (revision 7883)
+++ dbdimp.c (working copy)
@@ -2232,6 +2232,10 @@
if (DBIc_DBISTATE(imp_sth)->debug >= 6)
PerlIO_printf(DBIc_LOGPIO(imp_sth), " dbd_st_finish\n");
+ if (DBIc_COMPAT(imp_sth) && !SvOK(DBIc_ERR(imp_sth))) {
+ sv_setiv(DBIc_ERR(imp_sth), 0);
+ }
+
if (!DBIc_ACTIVE(imp_sth))
return 1;
Tim.
