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

[byterock]

Author: byterock
Date: Fri Mar 21 12:49:27 2008
New Revision: 10978

Modified:
   dbd-oracle/trunk/Oracle.xs
   dbd-oracle/trunk/dbdimp.c

Log:
fix a bug I introduced.

Modified: dbd-oracle/trunk/Oracle.xs
==============================================================================
--- dbd-oracle/trunk/Oracle.xs  (original)
+++ dbd-oracle/trunk/Oracle.xs  Fri Mar 21 12:49:27 2008
@@ -117,11 +117,7 @@
     CODE:
     {
     AV *av;
-    if (!SvROK(fetch_orient) || SvTYPE(SvRV(fetch_orient)) != SVt_IV)
-               croak("fetch_orient must be an integer");
-    if (!SvROK(fetch_offset) || SvTYPE(SvRV(fetch_offset)) != SVt_IV)
-               croak("fetch_offset must be an integer");
-       imp_sth->fetch_orient=fetch_orient;
+       imp_sth->fetch_orient=fetch_orient;
     imp_sth->fetch_offset=fetch_offset;
     av = dbd_st_fetch(sth,imp_sth);
     ST(0) = (av) ? sv_2mortal(newRV((SV *)av)) : &PL_sv_undef;

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c   (original)
+++ dbd-oracle/trunk/dbdimp.c   Fri Mar 21 12:49:27 2008
@@ -799,6 +799,7 @@
 int
 dbd_st_cancel(SV *sth, imp_sth_t *imp_sth)
 {
+       dTHX;
     sword status;
     status = OCIBreak(imp_sth->svchp, imp_sth->errhp);
     if (status != OCI_SUCCESS) {
@@ -809,7 +810,7 @@
      /* if we are using a scrolling cursor we should get rid of the
            cursor by fetching row 0 */
        if (imp_sth->exe_mode==OCI_STMT_SCROLLABLE_READONLY){
-                       OCIStmtFetch_log_stat(imp_sth->stmhp, imp_sth->errhp, 
0,OCI_FETCH_NEXT,0,  status);
+               OCIStmtFetch_log_stat(imp_sth->stmhp, imp_sth->errhp, 
0,OCI_FETCH_NEXT,0,  status);
        }
     return 1;
 }