Author: byterock
Date: Thu Mar 20 05:03:58 2008
New Revision: 10960
Modified:
dbd-oracle/branches/dblink/oci8.c
Log:
cut the size down a bit this should be better 100 meg of characters
Modified: dbd-oracle/branches/dblink/oci8.c
==============================================================================
--- dbd-oracle/branches/dblink/oci8.c (original)
+++ dbd-oracle/branches/dblink/oci8.c Thu Mar 20 05:03:58 2008
@@ -317,10 +317,10 @@
dTHX;
D_imp_dbh_from_sth;
sword status = 0;
- IV ora_dblink_lob =0; /*use dblink for lobs only for 10g Release 2. or
later*/
- ub4 oparse_lng = 1; /* auto v6 or v7 as suits db connected to */
- int ora_check_sql = 1; /* to force a describe to check SQL */
- IV ora_placeholders = 1; /* find and handle placeholders */
+ IV ora_dblink_lob =0; /*use dblink for lobs only for 10g Release 2. or
later*/
+ ub4 oparse_lng = 1; /* auto v6 or v7 as suits db connected to
*/
+ int ora_check_sql = 1; /* to force a describe to check SQL */
+ IV ora_placeholders = 1; /* find and handle placeholders */
/* XXX we set ora_check_sql on for now to force setup of the */
/* row cache. Change later to set up row cache using just a */
/* a memory size, perhaps also default $RowCacheSize to a */
@@ -356,7 +356,7 @@
DBD_ATTRIB_GET_IV( attribs, "ora_dblink_lob", 14, svp,
ora_dblink_lob);
imp_sth->auto_lob = (ora_auto_lob) ? 1 : 0;
- imp_sth->dblink_lob = (ora_auto_lob) ? 1 : 0;
+ imp_sth->dblink_lob = (ora_dblink_lob) ? 1 : 0;
/* ora_check_sql only works for selects owing to Oracle
behaviour */
DBD_ATTRIB_GET_IV( attribs, "ora_check_sql", 13, svp,
ora_check_sql);
}
@@ -2164,7 +2164,7 @@
fbh->ftype = 5; /* default: return as null terminated string */
-PerlIO_printf(DBILOGFP, "fbh->dbtype=%d\n",fbh->dbtype);
+
switch (fbh->dbtype) {
/* the simple types */
case 1: /* VARCHAR2 */
@@ -2245,8 +2245,8 @@
fbh->ftype = fbh->dbtype;
/* do we need some addition size logic here? (lab) */
if (imp_sth->dblink_lob){
- fbh->disize= 2*1022*1024*1024-1; /*2 gig -1 so it will not max
out.*/
- fbh->ftype=SQLT_CHR;
+ fbh->disize = 100*1022*1024; /*100 meg so it will not max out.*/
+ fbh->ftype = SQLT_CHR;
} else {
fbh->disize = fbh->dbsize *10 ; /* XXX! */
fbh->fetch_func = (imp_sth->auto_lob) ?
fetch_func_autolob : fetch_func_getrefpv;
