close curl option file before passing to curl

latex3 · Feb 3, 2019 · 4e5aebc · 4e5aebc
1 parent 6e683d6
commit 4e5aebc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/l3build-upload.lua b/l3build-upload.lua
@@ -29,6 +29,7 @@ local tostring = tostring
 local close = io.close
 local flush = io.flush
 local open  = io.open
+local output = io.output
 local popen = io.popen
 local read  = io.read
 local write = io.write
@@ -116,8 +117,11 @@ function upload(tagnames)
   ctan_post = construct_ctan_post(uploadfile,options["debug"])
 
 -- curl file version
-  io.output(ctanzip .. ".curlopt")
-  io.write(ctan_post)
+  local curlopt=open(ctanzip .. ".curlopt","w")
+  output(curlopt)
+  write(ctan_post)
+  close(curlopt)
+  
   ctan_post=curlexe .. " --config " .. ctanzip .. ".curlopt"
   
   if options["debug"] then