From 7271d1b2d7cd25a5d5738081adefc992ce3c02ae Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Fri, 11 Oct 2024 15:15:50 +0200
Subject: [PATCH] Pool http requests only

---
 R/handle-pool.r | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/handle-pool.r b/R/handle-pool.r
index a7ba6a16..9b78d295 100644
--- a/R/handle-pool.r
+++ b/R/handle-pool.r
@@ -21,7 +21,10 @@ handle_find <- function(url) {
     handle <- handle_pool[[name]]
   } else {
     handle <- handle(name)
-    handle_pool[[name]] <- handle
+    # Pool http requests only: https://github.com/curl/curl/issues/13731
+    if (grepl('^http', name)) {
+      handle_pool[[name]] <- handle
+    }
   }
 
   handle