fs.unix.tools: add __gc behavior to fs lock (#1702)

1 files changed, 9 insertions, 1 deletions

diff --git a/src/luarocks/fs/unix/tools.lua b/src/luarocks/fs/unix/tools.lua
index d7334733..f1513820 100644
--- a/src/luarocks/fs/unix/tools.lua
+++ b/src/luarocks/fs/unix/tools.lua
@@ -311,6 +311,12 @@ function tools.is_superuser()
    return fs.current_user() == "root"
 end
 
+local lock_mt = {
+   __gc = function(lock)
+      fs.unlock_access(lock)
+   end
+}
+
 function tools.lock_access(dirname, force)
    local ok, err = fs.make_dir(dirname)
    if not ok then
@@ -336,10 +342,12 @@ function tools.lock_access(dirname, force)
    local force_flag = force and " -f" or ""
 
    if fs.execute(vars.LN .. force_flag, tempfile, lockfile) then
-      return {
+      local lock = {
          tempfile = tempfile,
          lockfile = lockfile,
       }
+      setmetatable(lock, lock_mt)
+      return lock
    else
       return nil, "File exists" -- same message as luafilesystem
    end