| timbo@cvs.perl.org 2005-12-30, 8:24 pm |
| Author: timbo
Date: Fri Dec 30 15:15:17 2005
New Revision: 2343
Modified:
dbd-oracle/trunk/Changes
dbd-oracle/trunk/Makefile.PL
dbd-oracle/trunk/Oracle.pm
Log:
Fixed LOB streaming example thanks to Pablo Zorzoli.
More reliably use correct sqlplus thanks to Honza Pazdziora.
Modified: dbd-oracle/trunk/Changes
====================
====================
====================
==================
--- dbd-oracle/trunk/Changes (original)
+++ dbd-oracle/trunk/Changes Fri Dec 30 15:15:17 2005
@@ -4,13 +4,15 @@
Fixed csform setting for some UTF8 cases.
Fixed INTERVAL DAY TO SECOND thanks to Honza Pazdziora.
Fixed undef warnings when connecting with undef $user.
+ Fixed LOB streaming example thanks to Pablo Zorzoli.
Added support for nested cursors in select lists thanks to Charles Jardine.
Added "Trailing Spaces" section to docs thanks to Michael A Chase.
Added support for binary floats/doubles thanks to Dennis Box.
Changed "Binding Cursors" docs, clarifying examples thanks to Charles Jardine.
- Changed Makefile.PL to avoid risk of sqlplus hanging thanks to Mark Dedlow.
+ Changed Makefile.PL to avoid risk of sqlplus hanging thanks to Mark Dedlow,
+ and more reliably use correct sqlplus thanks to Honza Pazdziora.
Changed Makefile.PL to prefer ~/rdbms/public over other ~/rdbms/* for .h files.
Changed Makefile.PL to improve build rule detection.
Changed Makefile.PL to Instant Client build support thanks to Hilmar Lapp.
Modified: dbd-oracle/trunk/Makefile.PL
====================
====================
====================
==================
--- dbd-oracle/trunk/Makefile.PL (original)
+++ dbd-oracle/trunk/Makefile.PL Fri Dec 30 15:15:17 2005
@@ -1433,7 +1433,7 @@ sub get_client_version {
my $client_version_full
= '';
my $sqlplus_exe = ($os eq 'Win32' || $os eq 'MSWin32') ? "sqlplus.exe" : "sqlplus";
- local $ENV{PATH} = join $Config{path_sep}, $ENV{PATH}, "$OH/bin", $OH;
+ local $ENV{PATH} = join $Config{path_sep}, "$OH/bin", $OH, $ENV{PATH};
local $ENV{SQLPATH} = ""; # avoid $SQLPATH/login.sql causing sqlplus to hang
print "path=$ENV{PATH}\n";
if (find_bin($sqlplus_e
xe)) {
Modified: dbd-oracle/trunk/Oracle.pm
====================
====================
====================
==================
--- dbd-oracle/trunk/Oracle.pm (original)
+++ dbd-oracle/trunk/Oracle.pm Fri Dec 30 15:15:17 2005
@@ -2379,7 +2379,7 @@ than could be stored in memory at a give
my $offset = 1; # Offsets start at 1, not 0
while( my $data = $dbh->ora_lob_read( $char_locator, $offset, $chunk_size ) ) {
print STDOUT $data;
- $offset += $length;
+ $offset += $chunk_size;
}
Notice that the select statement does not contain the phrase
|