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: open
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


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.