From 25ca4def5be0f5f945984126afa56e315926e80d Mon Sep 17 00:00:00 2001
From: mjevans <mjevans@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Sat, 22 Oct 2011 11:51:19 +0000
Subject: [PATCH] Commented out unused code

git-svn-id: http://svn.perl.org/modules/dbd-oracle/trunk@14959 50811bd7-b8ce-0310-adc1-d9db26280581
---
 Changes  | 4 ++++
 dbdimp.h | 4 ++--
 oci8.c   | 9 +++++++--
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index dfba757f..8530fcf1 100644
--- a/Changes
+++ b/Changes
@@ -16,6 +16,10 @@ Changes in DBD-Oracle 1.33_01 (xx-xx-xxxx)
    does not affect how the column is bound in Oracle, only what
    happens after the column data is retrieved (Martin J. Evans)
 
+ [OTHER]
+ - Commented out some functions in oci8.c which were not used to
+   reduce the size of the driver a little (Martin J. Evans)
+
 Changes in DBD-Oracle 1.33_00 (18-10-2011)
 
  [BUG FIXES]
diff --git a/dbdimp.h b/dbdimp.h
index 1007b3e1..632e2814 100644
--- a/dbdimp.h
+++ b/dbdimp.h
@@ -352,8 +352,8 @@ char *oci_exe_mode _((ub4 mode));
 char *dbd_yes_no _((int yes_no));
 char *oci_col_return_codes _((int rc));
 char *oci_csform_name _((ub4 attr));
-char *oci_sql_function_code_name _((int sqlfncode));
-char *oci_ptype_name _((int ptype));
+/*char *oci_sql_function_code_name _((int sqlfncode));
+  char *oci_ptype_name _((int ptype));*/
 
 int dbd_rebind_ph_lob _((SV *sth, imp_sth_t *imp_sth, phs_t *phs));
 
diff --git a/oci8.c b/oci8.c
index 19be2418..351410ba 100644
--- a/oci8.c
+++ b/oci8.c
@@ -23,7 +23,7 @@ int describe_obj_by_tdo(SV *sth,imp_sth_t *imp_sth,fbh_obj_t *obj,ub2 level );
 int dump_struct(imp_sth_t *imp_sth,fbh_obj_t *obj,int level);
 
 
-
+/*
 char *
 dbd_yes_no(int yes_no)
 {
@@ -33,6 +33,7 @@ dbd_yes_no(int yes_no)
 	}
 	return "No";
 }
+*/
 
 void
 dbd_init_oci(dbistate_t *dbistate)
@@ -52,6 +53,7 @@ dbd_init_oci_drh(imp_drh_t * imp_drh)
 
 }
 
+/*
 char *
 oci_sql_function_code_name(int sqlfncode)
 {
@@ -71,7 +73,9 @@ oci_sql_function_code_name(int sqlfncode)
 	sprintf(SvPVX(sv),"(UNKNOWN SQL FN Code %d)", sqlfncode);
 	return SvPVX(sv);
 }
+*/
 
+ /*
 char *
 oci_ptype_name(int ptype)
 {
@@ -104,7 +108,8 @@ oci_ptype_name(int ptype)
 	sprintf(SvPVX(sv),"(UNKNOWN PTYPE Code %d)", ptype);
 	return SvPVX(sv);
 }
-
+ */
+ 
 char *
 oci_exe_mode(ub4 mode)
 {