DBD::Oracle setup

gistfile1.txt

Installed 64-bit Oracle client files including "base", "sqlplus" and "sdk" files from http://www.oracle.com/technetwork/database/features/instant-client/intel-macsoft-096467.html

Added to sudoers file: 
Defaults    env_keep += "ORACLE_HOME DYLD_LIBRARY_PATH"

Set these in ~/.bashrc and sourced it: 
export ORACLE_HOME=/usr/local/instantclient_10_2
export DYLD_LIBRARY_PATH=/usr/local/instantclient_10_2:$DYLD_LIBRARY_PATH

Hacked up DBD::Oracle per http://blacka.com/david/2008/11/12/how-to-install-dbdoracle-on-mac-os-x/

diff -u DBD-Oracle-1.28/Makefile.PL DBD-Oracle-1.28-hacked/Makefile.PL
--- DBD-Oracle-1.28/Makefile.PL 2011-03-04 00:47:17.000000000 -0800
+++ DBD-Oracle-1.28-hacked/Makefile.PL  2011-08-15 15:24:36.000000000 -0700
@@ -1830,7 +1830,7 @@
    unless ($os eq 'VMS') {
        my $m = $self->SUPER::dynamic_lib(@_);
        if ($os eq 'darwin') {
-           $m =  "NMEDIT = nmedit\n" . $m . 
+           $m =  "NMEDIT = echo\n" . $m . 
                  "\t\$(NMEDIT) -R ./hints/macos_bundle.syms \$(INST_DYNAMIC) || true\n";
        }
        elsif (($os eq 'hpux') and ($osvers <11)) {
Only in DBD-Oracle-1.28-hacked/: Makefile.old
Common subdirectories: DBD-Oracle-1.28/Oracle.ex and DBD-Oracle-1.28-hacked/Oracle.ex
Common subdirectories: DBD-Oracle-1.28/README-files and DBD-Oracle-1.28-hacked/README-files
diff -u DBD-Oracle-1.28/dbdimp.c DBD-Oracle-1.28-hacked/dbdimp.c
--- DBD-Oracle-1.28/dbdimp.c    2011-02-10 05:41:56.000000000 -0800
+++ DBD-Oracle-1.28-hacked/dbdimp.c 2011-08-15 15:36:53.000000000 -0700
@@ -69,7 +69,7 @@
 static sql_fbh_t ora2sql_type _((imp_fbh_t* fbh));

 void ora_free_phs_contents _((phs_t *phs));
-static void dump_env_to_trace();
+/* static void dump_env_to_trace(); */

 static sb4
 oci_error_get(OCIError *errhp, sword status, char *what, SV *errstr, int debug)
@@ -509,8 +509,8 @@
    if (DBD_ATTRIB_TRUE(attr,"ora_objects",11,svp))
        DBD_ATTRIB_GET_IV(  attr, "ora_objects",11, svp, ora_objects);

-   if (DBIS->debug >= 6 || dbd_verbose >= 6 )
-       dump_env_to_trace();
+   /* if (DBIS->debug >= 6 || dbd_verbose >= 6 )
+       dump_env_to_trace(); */

    /* dbi_imp_data code adapted from DBD::mysql */
    if (DBIc_has(imp_dbh, DBIcf_IMPSET)) {
@@ -4398,14 +4398,13 @@
    }
    return sql_fbh;
 }
-
+/*
 static void
 dump_env_to_trace() {
    dTHX;
    PerlIO *fp = DBILOGFP;
    int i = 0;
    char *p;
-
 #if defined (__APPLE__)
    #include <crt_externs.h>
    #define environ (*_NSGetEnviron())
@@ -4421,3 +4420,4 @@
    } while ((char*)environ[i] != '\0');
 }

+*/