From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 22 May 2004 15:23:51 +0000 (+0000)
Subject: r9428: add note about server version
X-Git-Tag: v3.8.6~413
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=ca8b8ab72493dfe86309bf489d4a7ccf897adf08

r9428: add note about server version
---

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 6adf3b5..d5fdb87 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -778,6 +778,8 @@ the length of that format.")
         ;; oci-handle-alloc((dvoid *)encvhp, (dvoid **)&stmthp, OCI_HTYPE_STMT, 0, 0);
         ;;#+nil
 	)
+      ;; Actually, oci-server-version returns the client version, not the server versions
+      ;; will use "SELECT VERSION FROM V$INSTANCE" to get actual server version.
       (let (db server-version)
 	(uffi:with-foreign-object (buf '(:array :unsigned-char #.+errbuf-len+))
 	  (oci-server-version (deref-vp svchp)