Fix GH-10885: Leaking stream_socket_server context

Author: iluuu1994

Zend/zend_execute_API.c

@@ -270,9 +270,18 @@ ZEND_API void zend_shutdown_executor_values(bool fast_shutdown)
 	zval *zv;
 
 	EG(flags) |= EG_FLAGS_IN_RESOURCE_SHUTDOWN;
+#if ZEND_DEBUG
+		char *tmp = getenv("AUTO_CLOSE_RESOURCE_LIST");
+		if (tmp && !ZEND_ATOL(tmp)) {
+			goto skip_auto_closing_resource_list;
+		}
+#endif
 	zend_try {
 		zend_close_rsrc_list(&EG(regular_list));
 	} zend_end_try();
+#if ZEND_DEBUG
+skip_auto_closing_resource_list:
+#endif
 
 	/* No PHP callback functions should be called after this point. */
 	EG(active) = 0;

Zend/zend_list.c

@@ -230,6 +230,16 @@ void zend_close_rsrc_list(HashTable *ht)
 
 void zend_destroy_rsrc_list(HashTable *ht)
 {
+#if ZEND_DEBUG
+	char *tmp = getenv("AUTO_CLOSE_RESOURCE_LIST");
+	if (tmp && !ZEND_ATOL(tmp)) {
+		if (!(HT_FLAGS(ht) & HASH_FLAG_UNINITIALIZED)) {
+			pefree(HT_GET_DATA_ADDR(ht), GC_FLAGS(ht) & IS_ARRAY_PERSISTENT);
+		}
+		return;
+	}
+#endif
+
 	zend_hash_graceful_reverse_destroy(ht);
 }
 

ext/standard/streamsfuncs.c

@@ -213,10 +213,6 @@ PHP_FUNCTION(stream_socket_server)
 
 	context = php_stream_context_from_zval(zcontext, flags & PHP_FILE_NO_DEFAULT_CONTEXT);
 
-	if (context) {
-		GC_ADDREF(context->res);
-	}
-
 	if (zerrno) {
 		ZEND_TRY_ASSIGN_REF_LONG(zerrno, 0);
 	}

ext/standard/tests/gh10885_1.phpt

@@ -0,0 +1,19 @@
+--TEST--
+GH-10885: stream_socket_server context leaks
+--ENV--
+AUTO_CLOSE_RESOURCE_LIST=0
+--FILE--
+<?php
+$context = stream_context_create();
+$server = @\stream_socket_server(
+    'tcp://127.0.0.1:0',
+    $errno,
+    $errstr,
+    \STREAM_SERVER_BIND | \STREAM_SERVER_LISTEN,
+    $context,
+);
+fclose($server);
+?>
+===DONE===
+--EXPECT--
+===DONE===

ext/standard/tests/gh10885_2.phpt

@@ -0,0 +1,18 @@
+--TEST--
+GH-10885: stream_socket_server context leaks
+--ENV--
+AUTO_CLOSE_RESOURCE_LIST=0
+--FILE--
+<?php
+$context = stream_context_create();
+$result = @\stream_socket_server(
+    'tcp://nonexistent:0',
+    $errno,
+    $errstr,
+    \STREAM_SERVER_BIND | \STREAM_SERVER_LISTEN,
+    $context,
+);
+var_dump($result);
+?>
+--EXPECT--
+bool(false)