From 742254ff58c008d70b7c7f98d9a0b66e7fe5ecd6 Mon Sep 17 00:00:00 2001
From: Calvin Buckley <calvinb@php.net>
Date: Fri, 14 Aug 2026 18:45:28 -0300
Subject: [PATCH] sapi/fpm: remove reimplementations of (un)setenv

These are functions that have existed since Unix V7. Windows doesn't
have them, but we don't support FPM on Windows (and in ext/standard,
there are other ways to emulate it that don't involve WTF comments).

clearenv is kept as this was from a rejected POSIX proposal that only
some systems implement (Linux, FreeBSD, some 90s Unices).

Also removes the WTF comment incidentally; see GH-23285.
---
 sapi/fpm/fpm/fpm_env.c | 75 ------------------------------------------
 1 file changed, 75 deletions(-)

diff --git a/sapi/fpm/fpm/fpm_env.c b/sapi/fpm/fpm/fpm_env.c
index 1f95fcc469a4..a75ea65a14bc 100644
--- a/sapi/fpm/fpm/fpm_env.c
+++ b/sapi/fpm/fpm/fpm_env.c
@@ -20,47 +20,6 @@ static size_t fpm_env_argv_len = 0;
 #endif
 #endif
 
-#ifndef HAVE_SETENV
-# ifdef (__sparc__ || __sparc)
-int setenv(char *name, char *value, int clobber) /* {{{ */
-{
-	char   *malloc();
-	char   *getenv();
-	char   *cp;
-
-	if (clobber == 0 && getenv(name) != 0) {
-		return 0;
-	}
-
-	size_t length = strlen(name) + strlen(value) + 2;
-	if ((cp = malloc(length)) == 0) {
-		return 1;
-	}
-	snprintf(cp, length, "%s=%s", name, value);
-	return putenv(cp);
-}
-/* }}} */
-# else
-int setenv(char *name, char *value, int overwrite) /* {{{ */
-{
-	int name_len = strlen(name);
-	int value_len = strlen(value);
-	char *var = alloca(name_len + 1 + value_len + 1);
-
-	memcpy(var, name, name_len);
-
-	var[name_len] = '=';
-
-	memcpy(var + name_len + 1, value, value_len);
-
-	var[name_len + 1 + value_len] = '\0';
-
-	return putenv(var);
-}
-/* }}} */
-# endif
-#endif
-
 #ifndef HAVE_CLEARENV
 void clearenv(void)
 {
@@ -83,40 +42,6 @@ void clearenv(void)
 }
 #endif
 
-#ifndef HAVE_UNSETENV
-void unsetenv(const char *name) /* {{{ */
-{
-	if(getenv(name) != NULL) {
-		int ct = 0;
-		int del = 0;
-
-		while(environ[ct] != NULL) {
-			if (nvmatch(name, environ[ct]) != 0) del=ct; /* <--- WTF?! */
-			{ ct++; } /* <--- WTF?! */
-		}
-		/* isn't needed free here?? */
-		environ[del] = environ[ct-1];
-		environ[ct-1] = NULL;
-	}
-}
-/* }}} */
-
-static char * nvmatch(char *s1, char *s2) /* {{{ */
-{
-	while(*s1 == *s2++)
-	{
-		if(*s1++ == '=') {
-			return s2;
-		}
-	}
-	if(*s1 == '\0' && *(s2-1) == '=') {
-		return s2;
-	}
-	return NULL;
-}
-/* }}} */
-#endif
-
 void fpm_env_setproctitle(char *title) /* {{{ */
 {
 #if defined(HAVE_SETPROCTITLE_FAST)