| timbo@cvs.perl.org 2005-06-06, 8:26 pm |
| Author: timbo
Date: Mon Jun 6 14:52:53 2005
New Revision: 1070
Modified:
dbd-oracle/trunk/Changes
dbd-oracle/trunk/oci8.c
dbd-oracle/trunk/t/20select.t
Log:
Fixed INTERVAL DAY TO SECOND thanks to Honza Pazdziora (untested).
Modified: dbd-oracle/trunk/Changes
====================
====================
====================
==================
--- dbd-oracle/trunk/Changes (original)
+++ dbd-oracle/trunk/Changes Mon Jun 6 14:52:53 2005
@@ -2,6 +2,7 @@
Fixed csform setting for Oracle 8.0.
Fixed csform setting for some UTF8 cases.
+ Fixed INTERVAL DAY TO SECOND thanks to Honza Pazdziora.
Added support for nested cursors in select lists thanks to Charles Jardine.
Added "Trailing Spaces" section to docs thanks to Michael A Chase.
Modified: dbd-oracle/trunk/oci8.c
====================
====================
====================
==================
--- dbd-oracle/trunk/oci8.c (original)
+++ dbd-oracle/trunk/oci8.c Mon Jun 6 14:52:53 2005
@@ -1299,6 +1299,7 @@ dbd_describe(SV *h, imp_sth_t *imp_sth)
case 182: /* INTERVAL YEAR TO MONTH */
case 183: /* INTERVAL DAY TO SECOND */
+ case 190: /* INTERVAL DAY TO SECOND */
case 187: /* TIMESTAMP */
case 188: /* TIMESTAMP WITH TIME ZONE */
case 232: /* TIMESTAMP WITH LOCAL TIME ZONE */
Modified: dbd-oracle/trunk/t/20select.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/20select.t (original)
+++ dbd-oracle/trunk/t/20select.t Mon Jun 6 14:52:53 2005
@@ -54,7 +54,7 @@ my @test_sets = (
my $sz = 8;
my $tests = 2;
-my $tests_per_set = 11;
+my $tests_per_set = 12;
$tests += @test_sets * $tests_per_set;
print "1..$tests\n";
@@ -110,6 +110,15 @@ sub run_select_tests {
} # end of run_select_tests
+ my $ora_server_version = $dbh->func("ora_server_version");
+ if ($ora_server_version
< 10) {
+ ok(0, 1, 1); # skip
+ } else {
+ my $data = $dbh->selectrow_array(q!
+ select to_dsinterval(?) from dual
+ !, {}, "1 07:00:00");
+ ok (0, (defined $data and $data eq '+000000001 07:00:00.000000000'), 1);
+ }
if (0) { # UNION ALL causes Oracle 9 (not 8) to describe col1 as zero length
# causing "ORA-24345: A Truncation or null fetch error occurred" error
|