Fixed INTERVAL DAY TO SECOND thanks to Honza Pazdziora (untested).

git-svn-id: http://svn.perl.org/modules/dbd-oracle/trunk@1070 50811bd7-b8ce-0310-adc1-d9db26280581

Changes

@@ -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.

oci8.c

@@ -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 */

t/20select.t

@@ -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