Author: byterock
Date: Fri Oct 24 17:45:25 2008
New Revision: 12001
Modified:
dbd-oracle/trunk/Changes
dbd-oracle/trunk/dbdimp.c
Log:
Fix for rt.cpan.org Ticket #=39232 binding large XMLTYPE fails on 64-bit perl
from Jeff Klein
Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes (original)
+++ dbd-oracle/trunk/Changes Fri Oct 24 17:45:25 2008
@@ -1,5 +1,6 @@
-=head1 Changes in DBD-Oracle 1.23(svn rev #####)
- Fix for rt.cpan.org Ticket #=38749 and added ora_oci_success_warn to display
silent OCI warnings from John Scoles
+=head1 Changes in DBD-Oracle 1.23(svn rev #####)
+ Fix for rt.cpan.org Ticket #=39232 binding large XMLTYPE fails on 64-bit
perl from Jeff Klein
+ Fix for rt.cpan.org Ticket #=38749 Warning of a NULL column in an aggregate
function also added ora_oci_success_warn to display silent OCI warnings from
John Scoles
Patch for UTF8 check on execute_array from David Mansfield and a little by
John Scoles
Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c (original)
+++ dbd-oracle/trunk/dbdimp.c Fri Oct 24 17:45:25 2008
@@ -1056,6 +1056,7 @@
dTHR;
OCIXMLType *xml = NULL;
STRLEN len;
+ ub4 buflen;
sword status;
ub1 src_type;
dvoid* src_ptr = NULL;
@@ -1090,9 +1091,9 @@
oci_error(sth, imp_sth->errhp, status, "OCILobCreateTemporary");
}
csid = (SvUTF8(source) && !CS_IS_UTF8(csid)) ? utf8_csid :
CSFORM_IMPLIED_CSID(csform);
-
+ buflen = len;
OCILobWriteAppend_log_stat(imp_dbh->svchp, imp_dbh->errhp, src_ptr,
- &len, bufp, (ub4)len, OCI_ONE_PIECE,
+ &buflen, bufp, (ub4)len, OCI_ONE_PIECE,
NULL, NULL,
csid, csform, status);
