Avoid lacking fds

1 files changed, 7 insertions, 0 deletions

diff --git a/libs/lucid-http/luasrc/lucid/http/server.lua b/libs/lucid-http/luasrc/lucid/http/server.lua
index bc8d53168c..fd5f7cdd8b 100644
--- a/libs/lucid-http/luasrc/lucid/http/server.lua
+++ b/libs/lucid-http/luasrc/lucid/http/server.lua
@@ -559,11 +559,14 @@ function Server.process(self, client, env)
 		stat, code, msg = client:writeall(table.concat(header, "\r\n"))
 
 		if sourceout and stat then
+			local closefd
 			if util.instanceof(sourceout, IOResource) then
 				if not headers["Transfer-Encoding"] then
 					stat, code, msg = sourceout.fd:copyz(client, sourceout.len)
+					closefd = sourceout.fd
 					sourceout = nil
 				else
+					closefd = sourceout.fd
 					sourceout = sourceout.fd:blocksource(nil, sourceout.len)
 				end
 			end
@@ -571,6 +574,10 @@ function Server.process(self, client, env)
 			if sourceout then
 				stat, msg = ltn12.pump.all(sourceout, sinkout)
 			end
+
+			if closefd then
+				closefd:close()
+			end
 		end