diff options
author | Karl Berry <karl@freefriends.org> | 2024-01-04 20:33:56 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2024-01-04 20:33:56 +0000 |
commit | 32a641f484bf4f20a262ad06facd5bd4d560a001 (patch) | |
tree | 0d81c01c3bfb10af143388e0c7c3e7ae3cf372c2 /Master/texmf-dist/scripts/l3build/l3build-upload.lua | |
parent | b66da2c166487b44cd87b9312387a726ab302969 (diff) |
l3build (4jan24)
git-svn-id: svn://tug.org/texlive/trunk@69300 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/l3build/l3build-upload.lua')
-rw-r--r-- | Master/texmf-dist/scripts/l3build/l3build-upload.lua | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/l3build/l3build-upload.lua b/Master/texmf-dist/scripts/l3build/l3build-upload.lua index 180572baf46..87158d1b01d 100644 --- a/Master/texmf-dist/scripts/l3build/l3build-upload.lua +++ b/Master/texmf-dist/scripts/l3build/l3build-upload.lua @@ -1,6 +1,6 @@ --[[ -File l3build-upload.lua Copyright (C) 2018-2021 The LaTeX Project +File l3build-upload.lua Copyright (C) 2018-2024 The LaTeX Project It may be distributed and/or modified under the conditions of the LaTeX Project Public License (LPPL), either version 1.3c of this @@ -34,8 +34,6 @@ local popen = io.popen local read = io.read local write = io.write -local os_type = os.type - local len = string.len local lower = string.lower local match = string.match @@ -131,8 +129,8 @@ function upload(tagnames) print("Are you sure you want to continue? [y/n]" ) io.stdout:write("> "):flush() if lower(read(),1,1) ~= "y" then - print'Aborting' - return 1 + print'Aborting' + return 1 end end @@ -247,9 +245,9 @@ function shell(s) local t = assert(h:read('*a')) local success = h:close() if (success) then - return t + return t else - error("\nError from shell command:\n" .. s .. "\n" .. t .. "\n") + error("\nError from shell command:\n" .. s .. "\n" .. t .. "\n") end end @@ -358,7 +356,7 @@ function input_multi_line_field (name) if answer_line~=nil then field = field .. "\n" .. answer_line end - end + end until (return_count==3 or answer_line==nil or answer_line=='\004') return field end |