From 66623641032e53ba831cba8ed5b1b5123a8d1ae7 Mon Sep 17 00:00:00 2001
From: Christopher Zimmermann <christopher@gmerlin.de>
Date: Sun, 8 Feb 2026 02:09:45 -0500
Subject: [PATCH] PATCH does upload

---
 src/core/ezcurl_core.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/core/ezcurl_core.ml b/src/core/ezcurl_core.ml
index c19d75c..c72679e 100644
--- a/src/core/ezcurl_core.ml
+++ b/src/core/ezcurl_core.ml
@@ -1,3 +1,4 @@
+
 let opt_iter ~f = function
   | None -> ()
   | Some x -> f x
@@ -441,7 +442,9 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
     | CONNECT -> Curl.set_customrequest self.curl "CONNECT"
     | OPTIONS -> Curl.set_customrequest self.curl "OPTIONS"
     | TRACE -> Curl.set_customrequest self.curl "TRACE"
-    | PATCH -> Curl.set_customrequest self.curl "PATCH");
+    | PATCH ->
+      Curl.set_customrequest self.curl "PATCH";
+      Curl.set_upload self.curl true);
 
     _set_headers self !headers;
     Curl.set_headerfunction self.curl (fun s0 ->