--- dbdimp.c.orig 2007-12-21 11:03:55.000000000 -0500
+++ dbdimp.c 2008-01-31 14:19:37.000000000 -0500
@@ -56,7 +56,6 @@
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 sb4
oci_error_get(OCIError *errhp, sword status, char *what, SV *errstr, int debug)
@@ -383,9 +382,6 @@
imp_dbh->get_oci_handle = oci_db_handle;
- if (DBIS->debug >= 6 )
- dump_env_to_trace();
-
if ((svp=DBD_ATTRIB_GET_SVP(attr, "ora_envhp", 9)) && SvOK(*svp)) {
if (!SvTRUE(*svp)) {
imp_dbh->envhp = NULL; /* force new environment */
@@ -3503,20 +3499,3 @@
}
return sql_fbh;
}
-
-static void
-dump_env_to_trace() {
- dTHX;
- PerlIO *fp = DBILOGFP;
- int i = 0;
- char *p;
-#ifndef __BORLANDC__
- extern char **environ;
-#endif
- PerlIO_printf(fp, "Environment variables:\n");
- do {
- p = (char*)environ[i++];
- PerlIO_printf(fp,"\t%s\n",p);
- } while ((char*)environ[i] != '\0');
-}
-