Author: byterock
Date: Wed Mar 19 10:04:45 2008
New Revision: 10954
Modified:
dbd-oracle/branches/dblink/oci8.c
Log:
now working for selects onto inserts next
Modified: dbd-oracle/branches/dblink/oci8.c
==============================================================================
--- dbd-oracle/branches/dblink/oci8.c (original)
+++ dbd-oracle/branches/dblink/oci8.c Wed Mar 19 10:04:45 2008
@@ -2244,16 +2244,17 @@
fbh->ftype = fbh->dbtype;
/* do we need some addition size logic here? (lab) */
- fbh->disize = fbh->dbsize *10 ; /* XXX! */
- fbh->fetch_func = (imp_sth->auto_lob)
- ? fetch_func_autolob : fetch_func_getrefpv;
- fbh->bless = "OCILobLocatorPtr";
- fbh->desc_t = OCI_DTYPE_LOB;
- OCIDescriptorAlloc_ok(imp_sth->envhp, &fbh->desc_h,
fbh->desc_t);
- if (imp_sth->dblink_lob){
+ if (imp_sth->dblink_lob){
+ fbh->disize= 2*1022*1024*1024-1; /*2 gig*/
fbh->ftype=SQLT_CHR;
+ } else {
+
+ fbh->disize = fbh->dbsize *10 ; /* XXX! */
+ fbh->fetch_func = (imp_sth->auto_lob) ?
fetch_func_autolob : fetch_func_getrefpv;
+ fbh->bless = "OCILobLocatorPtr";
+ fbh->desc_t = OCI_DTYPE_LOB;
+ OCIDescriptorAlloc_ok(imp_sth->envhp, &fbh->desc_h,
fbh->desc_t);
}
- PerlIO_printf(DBILOGFP, " ok here is is sqlt_chr=%d, and
imp_sth->dblink_lob=%d\n",SQLT_CHR,imp_sth->dblink_lob);
break;
@@ -2503,7 +2504,7 @@
/* else fall through and let rc trigger failure below */
}
-
+
if (rc == 0) { /* the normal case
*/
if (fbh->fetch_func) {
