Hi John,
the Web interface doesn't work for me, so I cc this to bug-DBD-Oracle
[at] rt.cpan.org which should also be ok.

I attached a diff -c on oci8.c from 1.21 which I think fixes the issue
(not tested currently, however):

*** oci8.c.ori  Wed May 21 12:09:48 2008
--- oci8.c      Wed May 21 12:16:08 2008
***************
*** 2811,2816 ****
--- 2811,2819 ----
      lob_refetch_t *lr = NULL;
      STRLEN tablename_len;
      char *tablename;
+ #ifdef OCI_ATTR_OBJ_NAME /* not in 8.0.x */
+     char new_tablename[100];
+ #endif /* OCI_ATTR_OBJ_NAME */
  
      switch (imp_sth-> stmt_type) {
      case OCI_STMT_UPDATE:
***************
*** 2834,2850 ****
      OCIDescribeAny_log_stat(imp_sth-> svchp, errhp, tablename,
strlen(tablename),
                (ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp,
status);
      if (status == OCI_SUCCESS) { /* There is a synonym, get the schema
*/
-       char new_tablename[100];
        char *syn_schema=NULL,  *syn_name=NULL;
        OCIAttrGet_log_stat(dschp,  OCI_HTYPE_DESCRIBE,
                                  &parmhp, 0, OCI_ATTR_PARAM, errhp,
status);
        OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
!                         &syn_schema, 0, OCI_ATTR_SCHEMA_NAME, errhp,
status);
        OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
!                         &syn_name, 0, OCI_ATTR_OBJ_NAME, errhp,
status);
!       strcpy(new_tablename, syn_schema);
!       strcat(new_tablename, ".");
!       strcat(new_tablename, syn_name);
        tablename=new_tablename;
        if (DBIS-> debug >= 3)
        PerlIO_printf(DBILOGFP, "       lob refetch synonym, schema=%s,
name=%s, new tablename=%s\n", syn_schema, syn_name, tablename);
--- 2837,2853 ----
      OCIDescribeAny_log_stat(imp_sth-> svchp, errhp, tablename,
strlen(tablename),
                (ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp,
status);
      if (status == OCI_SUCCESS) { /* There is a synonym, get the schema
*/
        char *syn_schema=NULL,  *syn_name=NULL;
+       ub4 syn_schema_len = 0, syn_name_len = 0;
        OCIAttrGet_log_stat(dschp,  OCI_HTYPE_DESCRIBE,
                                  &parmhp, 0, OCI_ATTR_PARAM, errhp,
status);
        OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
!                         &syn_schema, &syn_schema_len,
OCI_ATTR_SCHEMA_NAME, errhp, status);
        OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
!                         &syn_name, &syn_name_len, OCI_ATTR_OBJ_NAME,
errhp, status);
!       strncpy(new_tablename, syn_schema, syn_schema_len);
!       strcat (new_tablename, ".");
!       strncat(new_tablename, syn_name, syn_name_len);
        tablename=new_tablename;
        if (DBIS-> debug >= 3)
        PerlIO_printf(DBILOGFP, "       lob refetch synonym, schema=%s,
name=%s, new tablename=%s\n", syn_schema, syn_name, tablename);

Thanks for looking into the issue,

  Mirko



-----Original Message-----
From: scoles@[...].com [mailto:scoles@[...].com] 
Sent: Dienstag, 20. Mai 2008 23:03
To: Kraft, Mirko
Cc: dbi-dev@[...].org
Subject: Re: Bug in DBD::Oracle handling LOB columns and synonyms?

Ok I will have a look at it and you are right the code does not look
quite
right.

Do you think you can raise a ticket for this at
http://rt.cpan.org/Public/Dist/Display.html?Status=Active&Name=DBD-Oracl
e

that way I can track it better.

You do not happen to know what the orginal starting line number was in
oci8?

cheers John SColes


>  Hi *,
>  I'm using DBD::Oracle (code checked onCPAN and verified in version
1.21)
>  and encountered a problem (DB is Oracle 10gR2) related to LOBs and
>  synonyms:
> 
>  Table TTHUMBNAIL (DOCUMENT_ID NUMBER(12), THUMBNAIL BLOB NOT NULL) is
>  owned by user DMSSGADM. User DMSSGDP has a synonym TTHUMBNAIL on the
table
>  and all necessary rights granted.
> 
>  When executing the following code
> 
>  $sthInsertTTHUMBNAIL = prepareStatement($dbh,
>                                          'INSERT ' .
>                                          'INTO    tthumbnail ' .
>                                          '       (document_id, ' .
>                                          '        thumbnail) ' .
>                                          'VALUES
(document_id_seq.CURRVAL,
>  ' .
>                                          '        ?)');
>  $sthInsertTTHUMBNAIL->bind_param(1, $thumbnail, { ora_type => ORA_BLOB
});
>  $sthInsertTTHUMBNAIL->execute();
> 
>  I get the following error:
> 
>  ORA-04043: object DMSSGADMTTHUMBNAIL.TTHUMBNAIL does not exist (DBD
>  SUCCESS: OCIDescribeAny(view)/LOB refetch)
> 
>  Currently I tracked down the error to the following place in oci8.c,
but
>  since I got no compiler here, I can't verify further:
> 
>  01 #ifdef OCI_ATTR_OBJ_NAME /* not in 8.0.x */
>  02     OCIDescribeAny_log_stat(imp_sth->svchp, errhp, tablename,
>  strlen(tablename),
>  03 		(ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp,
status);
>  04     if (status == OCI_SUCCESS) { /* There is a synonym, get the
schema
>  */
>  05       char new_tablename[100];
>  06       char *syn_schema=NULL,  *syn_name=NULL;
>  07       OCIAttrGet_log_stat(dschp,  OCI_HTYPE_DESCRIBE,
>  08				  &parmhp, 0, OCI_ATTR_PARAM, errhp,
status);
>  09       OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
>  10			  &syn_schema, 0, OCI_ATTR_SCHEMA_NAME, errhp,
status);
>  11       OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,
>  12			  &syn_name, 0, OCI_ATTR_OBJ_NAME, errhp,
status);
>  13       strcpy(new_tablename, syn_schema);
>  14       strcat(new_tablename, ".");
>  15       strcat(new_tablename, syn_name);
>  16       tablenameew_tablename;
>  17       if (DBIS->debug >= 3)
>  18 	PerlIO_printf(DBILOGFP, "       lob refetch synonym, schema=%s,
>  name=%s, new tablename=%s\n", syn_schema, syn_name, tablename);
>  19     }
>  20 #endif /* OCI_ATTR_OBJ_NAME */
> 
>  First, lines 05 & 16 constitute a very bad situation, since the
pointer
>  refers to a stack variable that is freed when the block is closed :-(
So
>  this buffer should be declared outside the block, anyway...
> 
>  And from what I know about OCIAttrGet, if you retrieve a text
attribute,
>  you have to pass a pointer to receive the length of the string, as it
is
>  not '\0' terminated! After that you would call something like
> 
>  strncpy(new_tablename, syn_schema, syn_schema_length);
>  strcpy (new_tablename, ".");
>  strncpy(new_tablename, syn_name, syn_name_length);
> 
>  I'm looking forward to hearing from you about the issue, since I'm
really
>  stuck on the topic.
> 
>  Sincerely,
> 
>    Mirko Kraft
> 
>  UBS AG
>  Global Wealth Management & Business Banking
>  Information Technology
>  eRMS - electronic Records Management Solutions
>  Viaduktstr. 31-35, PO Box 4473, CH-4051 Basel
>  Tel. +41-61-288 53 72
>  Fax +41-61-288 71 91
>  www.ubs.com
> 
>  Based on previous e-mail correspondence with you and/or an agreement
>  reached with you, UBS considers itself authorized to contact you via
>  unsecured e-mail.
>  Warning:
>  (a) E-mails can involve SUBSTANTIAL RISKS, e.g. lack of
confidentiality,
>  potential manipulation of contents and/or sender's address, incorrect
>  recipient (misdirection), viruses etc. UBS assumes no responsibility
for
>  any loss or damage resulting from the use of e-mails. UBS recommends
in
>  particular that you do NOT SEND ANY SENSITIVE INFORMATION, that you do
not
>  include details of the previous message in any reply, and that you
enter
>  e-mail address(es) manually every time you write an e-mail.
>  (b) As a matter of principle, UBS does NOT accept any ORDERS,
revocations
>  of orders or authorizations, blocking of credit cards, etc., sent by
>  e-mail. Should such an e-mail nevertheless be received, UBS is not
obliged
>  to act on or respond to the e-mail.
>  Please notify UBS immediately if you received this e-mail by mistake
or if
>  you do not wish to receive any further e-mail correspondence. If you
have
>  received this e-mail by mistake, please completely delete it (and any
>  attachments) and do not forward it or inform any other person of its
>  contents.
> 
> 
>