From 1506c1e49aaf5455f1b706b215818aba30fb0a53 Mon Sep 17 00:00:00 2001
From: Jeremy Baxter <jeremy@baxters.nz>
Date: Tue, 27 Jun 2023 17:44:42 +1200
Subject: [PATCH] Remove use of clearenv(), it is not portable

---
 lenvironment.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lenvironment.c b/lenvironment.c
index 9f22001..14a3d4e 100644
--- a/lenvironment.c
+++ b/lenvironment.c
@@ -18,6 +18,8 @@
 #include "util.h"
 
 
+extern char **environ;
+
 /***
  * Returns the value of the given environment
  * variable.
@@ -72,7 +74,8 @@ environment_set(lua_State *L)
 
 	variable = luaL_checkstring(L, 1);
 	value    = luaL_checkstring(L, 2);
-	ret      = setenv(variable, value, 1);
+
+	ret	= setenv(variable, value, 1);
 
 	if (ret == 0)
 		return 0;
@@ -110,7 +113,7 @@ environment_clear(lua_State *L)
 	int ret;
 
 	if (lua_isnoneornil(L, 1)) {
-		clearenv();
+		environ = NULL;
 		return 0;
 	}