[latex3-commits] [git/LaTeX3-latex3-l3build] master: Have to tidy up before renaming (6cab20c)

[Joseph Wright]

Repository : https://github.com/latex3/l3build
On branch  : master
Link       : https://github.com/latex3/l3build/commit/6cab20c9ade96eeb2d0c561d56334989db9be4ea

>---------------------------------------------------------------

commit 6cab20c9ade96eeb2d0c561d56334989db9be4ea
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Sun Sep 23 19:48:01 2018 +0100

    Have to tidy up before renaming


>---------------------------------------------------------------

6cab20c9ade96eeb2d0c561d56334989db9be4ea
 l3build-ctan.lua |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/l3build-ctan.lua b/l3build-ctan.lua
index 20205e2..b256ce2 100644
--- a/l3build-ctan.lua
+++ b/l3build-ctan.lua
@@ -134,10 +134,12 @@ function ctan()
     end
     -- Rename README if necessary
     if ctanreadme ~= "" and not match(lower(ctanreadme),"^readme%.%w+") then
+      local newfile = "README." .. match(ctanreadme,"%.(%w+)$")
       for _,dir in pairs({ctandir .. "/" .. ctanpkg,
         tdsdir .. "/doc/" .. tdsroot .. "/" .. bundle}) do
         if fileexists(dir .. "/" .. ctanreadme) then
-          ren(dir,ctanreadme,"README." .. match(ctanreadme,"%.(%w+)$"))
+          rm(dir,newfile)
+          ren(dir,ctanreadme,newfile)
         end
       end
     end