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

Author: mjevans
Date: Thu Sep  6 08:50:30 2012
New Revision: 15379

Modified:
   dbd-oracle/trunk/Changes
   dbd-oracle/trunk/dbdimp.c

Log:
fix some compiler warnings


Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes	(original)
+++ dbd-oracle/trunk/Changes	Thu Sep  6 08:50:30 2012
@@ -27,6 +27,8 @@
     once handled. Code now leaves the setting to the later STORE DBI
     calls (Martin J. Evans)
 
+  - fixed some compiler warnings for %lf (Martin J. Evans)
+
   [CHANGE IN BEHAVIOUR]
 
   - ora_taf and ora_taf_sleep were redundant and have been removed.

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Thu Sep  6 08:50:30 2012
@@ -2245,7 +2245,7 @@
 					PerlIO_printf(
                         DBIc_LOGPIO(imp_sth),
                         "dbd_rebind_ph_number_table(): "
-						"let (double) array[%d]=%lf - NOT NULL\n",
+						"let (double) array[%d]=%f - NOT NULL\n",
 						i, val);
 				}
 				}else{
@@ -2280,7 +2280,7 @@
                     PerlIO_printf(
                         DBIc_LOGPIO(imp_sth),
                         "dbd_rebind_ph_number_table(): "
-                        "(double) array[%d]=%lf%s\n",
+                        "(double) array[%d]=%f%s\n",
                         i, *(double*)(phs->array_buf+phs->maxlen*i),
                         phs->array_indicators[i] ? " (NULL)" : "" );
 				}
@@ -2437,7 +2437,7 @@
 			case SQLT_FLT:
 				if (trace_level >= 4 || dbd_verbose >= 4 ){
                     PerlIO_printf(DBIc_LOGPIO(imp_sth),
-					"dbd_phs_number_table_post_exe(): (double) set arr[%d] = %lf \n",
+					"dbd_phs_number_table_post_exe(): (double) set arr[%d] = %f \n",
 					i, *(double*)(phs->array_buf+phs->maxlen*i)
 					);
 				}
@@ -2465,7 +2465,7 @@
 			case SQLT_FLT:
 				if (trace_level >= 4 || dbd_verbose >= 4 ){
                     PerlIO_printf(DBIc_LOGPIO(imp_sth),
-					"dbd_phs_number_table_post_exe(): (double) store new arr[%d] = %lf \n",
+					"dbd_phs_number_table_post_exe(): (double) store new arr[%d] = %f \n",
 					i, *(double*)(phs->array_buf+phs->maxlen*i)
 					);
 				}
@@ -3210,8 +3210,7 @@
 		sv_setsv(phs->sv, newvalue);
 		if (SvAMAGIC(phs->sv)) /* overloaded. XXX hack, logic ought to be pushed deeper */
 			sv_pvn_force(phs->sv, &PL_na);
-	}
-	else if (newvalue != phs->sv) {
+	} else if (newvalue != phs->sv) {
 		if (phs->sv)
 			SvREFCNT_dec(phs->sv);