Author: byterock Date: Wed Dec 5 05:14:49 2007 New Revision: 10368 Modified: dbd-oracle/trunk/Oracle.pm dbd-oracle/trunk/oci8.c
Log: getting rid of some old links in the pm and some code clean up in oci8.c Modified: dbd-oracle/trunk/Oracle.pm ============================================================================== --- dbd-oracle/trunk/Oracle.pm (original) +++ dbd-oracle/trunk/Oracle.pm Wed Dec 5 05:14:49 2007 @@ -3151,12 +3151,13 @@ =head1 Oracle Related Links +=head2 Oracle Instant Client + + http://www.oracle.com/technology/tech/oci/instantclient/index.html + =head2 Oracle on Linux - http://www.datamgmt.com/maillist.html http://www.eGroups.com/list/oracle-on-linux - http://www.wmd.de/wmd/staff/pauck/misc/oracle_on_linux.html - ftp://oracle-ftp.oracle.com/server/patch_sets/LINUX http://www.ixora.com.au/ =head2 Free Oracle Tools and Links Modified: dbd-oracle/trunk/oci8.c ============================================================================== --- dbd-oracle/trunk/oci8.c (original) +++ dbd-oracle/trunk/oci8.c Wed Dec 5 05:14:49 2007 @@ -1406,7 +1406,6 @@ } if (fld->typecode == OCI_TYPECODE_OBJECT || fld->typecode == OCI_TYPECODE_VARRAY || fld->typecode == OCI_TYPECODE_TABLE || fld->typecode == OCI_TYPECODE_NAMEDCOLLECTION){ AV *emb_list = newAV(); - fbh_obj_t *emb_obj = &fld->fields[0]; /*get the field */ attr_value = *(dvoid **)attr_value; get_object (sth,emb_list, fbh, &fld->fields[0],attr_value,attr_null_struct); av_push(list, newRV_noinc((SV *) emb_list)); @@ -1537,7 +1536,6 @@ dTHX; dvoid *null_struct= (dvoid *) 0; AV *list = newAV(); - int num_errors = 0; if (DBIS->debug >= 4) { PerlIO_printf(DBILOGFP, " getting an embedded object named %s with typecode=%d\n",fbh->obj->type_name,fbh->obj->typecode); @@ -1622,7 +1620,6 @@ describe_obj(SV *sth,imp_sth_t *imp_sth,OCIParam *parm,fbh_obj_t *obj,int level ) { dTHX; - D_imp_dbh_from_sth; sword status; if (DBIS->debug >= 5) { @@ -1673,7 +1670,6 @@ if (obj->typecode == OCI_TYPECODE_OBJECT){ OCIParam *list_attr= (OCIParam *) 0; - text *namef=NULL; ub2 pos; if (DBIS->debug >= 6) { @@ -1756,7 +1752,6 @@ } } else { /*well this is an embedded table or varray of some form so find out what is in it*/ - OCIParam *parmap= (OCIParam *) 0; if (DBIS->debug >= 6) { PerlIO_printf(DBILOGFP, "Object named =%s at level %d is an Varray or Table\n",obj->type_name,level); @@ -1802,7 +1797,6 @@ int dump_struct(imp_sth_t *imp_sth,fbh_obj_t *obj,int level){ dTHX; - D_imp_dbh_from_sth; int i; /*dumps the contents of the current fbh->obj*/
