[svn:dbd-oracle] r2343 - dbd-oracle/trunk

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 Jardin
e.
-  Changed Makefile.PL to avoid risk of sqlplus hanging thanks to Mark Dedlo
w.
+  Changed Makefile.PL to avoid risk of sqlplus hanging thanks to Mark Dedlo
w,
+    and more reliably use correct sqlplus thanks to Honza Pazdziora.
Changed Makefile.PL to prefer ~/rdbms/public over other ~/rdbms/* for .h fil
es.
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" : "sq
lplus";
-    local $ENV{PATH} = join $Config{path_sep}, $ENV{PATH}, "
$OH/bin", $OH;
+    local $ENV{PATH} = join $Config{path_sep}, "$OH/bin", $OH, $E
NV{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