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

[email protected] Sat, 5 Feb 2011 15:35:04 -0800 (PST)
Newsgroups perl.dbd.oracle.changes
Message-ID <[email protected]>
Author: byterock
Date: Sat Feb  5 15:35:02 2011
New Revision: 14683

Modified:
   dbd-oracle/trunk/dbdimp.c

Log:
Fixed a typo that may cause problems on some compilers

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Sat Feb  5 15:35:02 2011
@@ -445,10 +445,10 @@
 			croak("ora_driver_name is not a string");
 		imp_dbh->driver_name = (char *) SvPV (*svp, svp_len );
 		imp_dbh->driver_namel= (ub4) svp_len;
-		OCIAttrSet_log_stat(,imp_dbh->seshp,OCI_HTYPE_SESSION, imp_dbh->driver_name,imp_dbh->driver_namel,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
+		OCIAttrSet_log_stat(imp_dbh->seshp,OCI_HTYPE_SESSION, imp_dbh->driver_name,imp_dbh->driver_namel,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
     }
     else {
-		OCIAttrSet_log_stat(,imp_dbh->seshp,OCI_HTYPE_SESSION,(text*)"DBDO1.28",7,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
+		OCIAttrSet_log_stat(imp_dbh->seshp,OCI_HTYPE_SESSION,(text*)"DBDO1.28",7,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
 	}
 #endif /*ORA_OCI_112*/
 
@@ -1240,7 +1240,7 @@
 	else if (kl==15 && strEQ(key, "ora_driver_name") ) {
 		imp_dbh->driver_name = (char *) SvPV (valuesv, vl );
 		imp_dbh->driver_namel= (ub4) vl;
-		OCIAttrSet_log_stat(,imp_dbh->seshp,OCI_HTYPE_SESSION, imp_dbh->driver_name,imp_dbh->driver_namel,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
+		OCIAttrSet_log_stat(imp_dbh->seshp,OCI_HTYPE_SESSION, imp_dbh->driver_name,imp_dbh->driver_namel,OCI_ATTR_DRIVER_NAME,imp_dbh->errhp, status);
 	}
 	else if (kl==8 && strEQ(key, "ora_drcp") ) {
 		imp_dbh->using_drcp = 1;
@@ -1352,7 +1352,7 @@
 		retsv = newSViv(imp_dbh->using_drcp);
 	}
 	else if (kl==14 && strEQ(key, "ora_drcp_class") ) {
-		retsv = newSV(imp_dbh->pool_class);
+		retsv = newSVpv(imp_dbh->pool_class);
 	}
 	else if (kl==12 && strEQ(key, "ora_drcp_min") ) {
 		retsv = newSViv(imp_dbh->pool_min);