[svn:dbd-oracle] r10979 - dbd-oracle/trunk

[byterock]

Author: byterock
Date: Fri Mar 21 12:57:51 2008
New Revision: 10979

Modified:
   dbd-oracle/trunk/oci8.c

Log:
another little bug I introduced

Modified: dbd-oracle/trunk/oci8.c
==============================================================================
--- dbd-oracle/trunk/oci8.c     (original)
+++ dbd-oracle/trunk/oci8.c     Fri Mar 21 12:57:51 2008
@@ -2433,7 +2433,8 @@
        if (DBIS->debug >= 3){
                PerlIO_printf(DBILOGFP, "    dbd_st_fetch %d fields...\n", 
DBIc_NUM_FIELDS(imp_sth));
            }
-        if (imp_sth->fetch_orient != OCI_FETCH_NEXT) {
+
+        if (imp_sth->fetch_orient != OCI_DEFAULT) {
 
                        if (imp_sth->exe_mode!=OCI_STMT_SCROLLABLE_READONLY)
                                croak ("attempt to use a scrollable cursor 
without first setting ora_exe_mode to OCI_STMT_SCROLLABLE_READONLY\n") ;