From c35901aad10deb32c0128b7186c35bd96bf4a0bc Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Thu, 18 Oct 2012 00:40:19 +0200
Subject: Only use unsetenv if HAVE_UNSETENV is defined (fixes #7343)

---
 cbits/HsUnix.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'cbits')

diff --git a/cbits/HsUnix.c b/cbits/HsUnix.c
index dd4b4f6..aba5445 100644
--- a/cbits/HsUnix.c
+++ b/cbits/HsUnix.c
@@ -157,6 +157,7 @@ int __hscore_setrlimit(int resource, struct rlimit *rlim) {
 }
 #endif
 
+#ifdef HAVE_UNSETENV
 int __hsunix_unsetenv(const char *name)
 {
 #ifdef UNSETENV_RETURNS_VOID
@@ -166,6 +167,7 @@ int __hsunix_unsetenv(const char *name)
     return unsetenv(name);
 #endif
 }
+#endif
 
 /* A size that will contain many path names, but not necessarily all
  * (PATH_MAX is not defined on systems with unlimited path length,
-- 
cgit v1.2.3