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

[email protected] Tue, 8 Feb 2011 10:55:07 -0800 (PST)
Newsgroups perl.dbd.oracle.changes
Message-ID <[email protected]>
Author: mjevans
Date: Tue Feb  8 10:55:07 2011
New Revision: 14689

Modified:
   dbd-oracle/trunk/dbdimp.c

Log:
Some parts of the patch sent to John missed off his update which cause compiler errors

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Tue Feb  8 10:55:07 2011
@@ -1355,13 +1355,13 @@
 		retsv = newSViv(imp_dbh->using_drcp);
 	}
 	else if (kl==14 && strEQ(key, "ora_drcp_class") ) {
-		retsv = newSVpv(imp_dbh->pool_class);
+		retsv = newSVpv((char *)imp_dbh->pool_class, 0);
 	}
 	else if (kl==12 && strEQ(key, "ora_drcp_min") ) {
 		retsv = newSViv(imp_dbh->pool_min);
 	}
 	else if (kl==12 && strEQ(key, "ora_drcp_max") ) {
-		retsv = newSViv(imp_dbh->pool_max));
+		retsv = newSViv(imp_dbh->pool_max);
 	}
 	else if (kl==13 && strEQ(key, "ora_drcp_incr") ) {
 		retsv = newSViv(imp_dbh->pool_incr);
@@ -3653,7 +3653,7 @@
 	}
 }
 
- int
+int
 ora_st_execute_array(sth, imp_sth, tuples, tuples_status, columns, exe_count)
 	SV *sth;
 	imp_sth_t *imp_sth;