--- dbdimp.c.orig	2008-10-30 22:11:11.000000000 -0500
+++ dbdimp.c	2008-10-30 22:21:47.000000000 -0500
@@ -3852,7 +3852,11 @@
     PerlIO *fp = DBILOGFP;
     int i = 0;
     char *p;
-#ifndef __BORLANDC__
+#if defined (__APPLE__)
+#include <crt_externs.h>
+#define environ (*_NSGetEnviron())
+#elif defined (__BORLANDC__)
+#else
     extern char **environ;
 #endif
     PerlIO_printf(fp, "Environment variables:\n");
