[svn:dbd-oracle] r12048 - dbd-oracle/trunk

[email protected]
Newsgroups perl.dbd.oracle.changes
Message-ID <[email protected]>
Author: byterock
Date: Thu Nov  6 07:38:54 2008
New Revision: 12048

Modified:
   dbd-oracle/trunk/dbdimp.c

Log:
fix for http://rt.cpan.org/Ticket/Display.html?id=21920

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Thu Nov  6 07:38:54 2008
@@ -3997,9 +3997,15 @@
     PerlIO *fp = DBILOGFP;
     int i = 0;
     char *p;
-#ifndef __BORLANDC__
+
+#if defined (__APPLE__)
+    #include <crt_externs.h>
+    #define environ (*_NSGetEnviron())
+#elif defined (__BORLANDC__)
     extern char **environ;
 #endif
+
+
     PerlIO_printf(fp, "Environment variables:\n");
     do {
 	p = (char*)environ[i++];
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.