[svn:dbd-oracle] r11034 - in dbd-oracle/trunk: . t

[byterock]

Author: byterock
Date: Wed Apr  2 04:51:41 2008
New Revision: 11034

Modified:
   dbd-oracle/trunk/oci8.c
   dbd-oracle/trunk/t/12impdata.t
   dbd-oracle/trunk/t/14threads.t

Log:
Changes from RC2, signed problem in oci8.c and typos in t/12impdata.t and 
t/14threads.t

Modified: dbd-oracle/trunk/oci8.c
==============================================================================
--- dbd-oracle/trunk/oci8.c     (original)
+++ dbd-oracle/trunk/oci8.c     Wed Apr  2 04:51:41 2008
@@ -1379,8 +1379,8 @@
                if (typecode == OCI_TYPECODE_TIMESTAMP_TZ || typecode == 
OCI_TYPECODE_TIMESTAMP_LTZ){
                        char s_tz_hour[3]="000";
                        char s_tz_min[3]="000";
-            ub1 tz_hour;
-                   ub1 tz_minute;
+            sb1 tz_hour;
+                   sb1 tz_minute;
                        status = OCIDateTimeGetTimeZoneOffset 
(fbh->imp_sth->envhp,
                                                             
fbh->imp_sth->errhp,
                                                             
*(OCIDateTime**)attr_value,
@@ -1388,12 +1388,12 @@
                                     &tz_minute );
 
             if (  (tz_hour<0) && (tz_hour>-10) ){
-               sprintf(s_tz_hour," %03d",(unsigned) tz_hour);
+               sprintf(s_tz_hour," %03d",tz_hour);
             } else {
-               sprintf(s_tz_hour," %02d",(unsigned) tz_hour);
+               sprintf(s_tz_hour," %02d",tz_hour);
             }
 
-            sprintf(s_tz_min,":%02d",(unsigned) tz_minute);
+            sprintf(s_tz_min,":%02d", tz_minute);
             strcat(str_buf, s_tz_hour);
             strcat(str_buf, s_tz_min);
             str_buf[str_len+7] = '\0';

Modified: dbd-oracle/trunk/t/12impdata.t
==============================================================================
--- dbd-oracle/trunk/t/12impdata.t      (original)
+++ dbd-oracle/trunk/t/12impdata.t      Wed Apr  2 04:51:41 2008
@@ -15,7 +15,7 @@
 
 BEGIN {
     if ($DBI::VERSION <= 1.601){
-      plan skip_all => "DBI version ".$DBI::VERSION." does not supprt iThreads 
use version 1.602 or later";
+      plan skip_all => "DBI version ".$DBI::VERSION." does not support 
iThreads. Use version 1.602 or later.";
     }
     die $use_threads_err if $use_threads_err;    # need threads
 }

Modified: dbd-oracle/trunk/t/14threads.t
==============================================================================
--- dbd-oracle/trunk/t/14threads.t      (original)
+++ dbd-oracle/trunk/t/14threads.t      Wed Apr  2 04:51:41 2008
@@ -16,7 +16,7 @@
     if ( !$Config{useithreads} || $] < 5.008 ) {
         plan skip_all => "this $^O perl $] not configured to support iThreads";
     } elsif ($DBI::VERSION <= 1.601){
-      plan skip_all => "DBI version ".$DBI::VERSION." does not supprt iThreads 
use version 1.602 or later";
+      plan skip_all => "DBI version ".$DBI::VERSION." does not support 
iThreads. Use version 1.602 or later.";
      }
     die $use_threads_err if $use_threads_err;    # need threads
 }