Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 72898
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: Nobody in particular
Requestors: bohica [...] ntlworld.com
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 1.35_00
Fixed in: (no value)



Subject: ora_array_chunk_size possibly broken
Download (untitled) / with headers
text/plain 762b
I've not tested this yet but I thought it was worth reporting and I'll look at it myself. I copied DBD::Oracle's code for execute_for_fetch as a starter for implementing this in DBD::ODBC but had problems setting the chunk size. The code: sub execute_for_fetch { my ($sth, $fetch_tuple_sub, $tuple_status) = @_; my $row_count = 0; my $err_count = 0; my $tuple_count="0E0"; my $tuple_batch_status; my $dbh = $sth->{Database}; my $batch_size =($dbh->{'ora_array_chunk_size'}||= 1000); probably always sets $batch_size to 1000 as $dbh->{'ora_array_chunk_size'} probably always returns undef. I think it should be $dbh->FETCH('ora_array_chunk_size'). I will check this. Martin -- Martin J. Evans Wetherby, UK
On Fri Dec 02 15:47:18 2011, MJEVANS wrote: Show quoted text
> I've not tested this yet but I thought it was worth reporting and I'll > look at it myself. I copied DBD::Oracle's code for execute_for_fetch as > a starter for implementing this in DBD::ODBC but had problems setting > the chunk size. The code: > > sub execute_for_fetch { > my ($sth, $fetch_tuple_sub, $tuple_status) = @_; > my $row_count = 0; > my $err_count = 0; > my $tuple_count="0E0"; > my $tuple_batch_status; > my $dbh = $sth->{Database}; > my $batch_size =($dbh->{'ora_array_chunk_size'}||= 1000); > > probably always sets $batch_size to 1000 as > $dbh->{'ora_array_chunk_size'} probably always returns undef. I think it > should be $dbh->FETCH('ora_array_chunk_size'). > > I will check this. > > Martin
As it happens this does work because it is preceded by: my $dbh = $sth->{Database}; However, I'd expect you to be able to set this on a statement handle not globabally across all the connection. Martin -- Martin J. Evans Wetherby, UK
Moved to github issue 106


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.