Merge branch 'master' into luarocks-3

2 files changed, 22 insertions, 14 deletions

diff --git a/src/luarocks/command_line.lua b/src/luarocks/command_line.lua
index 936e9950..f7f6ccb6 100644
--- a/src/luarocks/command_line.lua
+++ b/src/luarocks/command_line.lua
@@ -2,6 +2,7 @@
 --- Functions for command-line scripts.
 local command_line = {}
 
+local pack = function(...) return {...}, select("#", ...) end
 local unpack = unpack or table.unpack
 
 local util = require("luarocks.util")
@@ -13,17 +14,24 @@ local fs = require("luarocks.fs")
 
 local program = util.this_program("luarocks")
 
+local function error_handler(err)
+   return debug.traceback("LuaRocks "..cfg.program_version..
+      " bug (please report at https://github.com/keplerproject/luarocks/issues).\n"..err, 2)
+end
+
 --- Display an error message and exit.
 -- @param message string: The error message.
 -- @param exitcode number: the exitcode to use
 local function die(message, exitcode)
    assert(type(message) == "string")
+   util.printerr("\nError: "..message)
 
-   local ok, err = pcall(util.run_scheduled_functions)
+   local ok, err = xpcall(util.run_scheduled_functions, error_handler)
    if not ok then
-      util.printerr("\nLuaRocks "..cfg.program_version.." internal bug (please report at https://github.com/keplerproject/luarocks/issues):\n"..err)
+      util.printerr("\nError: "..err)
+      exitcode = cfg.errorcodes.CRASH
    end
-   util.printerr("\nError: "..message)
+
    os.exit(exitcode or cfg.errorcodes.UNSPECIFIED)
 end
 
@@ -177,12 +185,10 @@ function command_line.run_command(...)
    
    if commands[command] then
       local cmd = require(commands[command])
-      local xp, ok, err, exitcode = xpcall(function() return cmd.command(flags, unpack(nonflags)) end, function(err)
-         die(debug.traceback("LuaRocks "..cfg.program_version
-            .." bug (please report at https://github.com/keplerproject/luarocks/issues).\n"
-            ..err, 2), cfg.errorcodes.CRASH)
-      end)
-      if xp and (not ok) then
+      local call_ok, ok, err, exitcode = xpcall(function() return cmd.command(flags, unpack(nonflags)) end, error_handler)
+      if not call_ok then
+         die(ok, cfg.errorcodes.CRASH)
+      elseif not ok then
          die(err, exitcode)
       end
    else
diff --git a/src/luarocks/repos.lua b/src/luarocks/repos.lua
index 6de844d2..9616fe03 100644
--- a/src/luarocks/repos.lua
+++ b/src/luarocks/repos.lua
@@ -175,12 +175,14 @@ local function find_suffixed(file, suffix)
          return filename
       end
    end
+
+   return nil, table.concat(filenames, ", ") .. " not found"
 end
 
 local function move_suffixed(from_file, to_file, suffix)
-   local suffixed_from_file = find_suffixed(from_file, suffix)
+   local suffixed_from_file, err = find_suffixed(from_file, suffix)
    if not suffixed_from_file then
-      return nil, "File not found"
+      return nil, "Could not move " .. from_file .. " to " .. to_file .. ": " .. err
    end
 
    suffix = suffixed_from_file:sub(#from_file + 1)
@@ -189,14 +191,14 @@ local function move_suffixed(from_file, to_file, suffix)
 end
 
 local function delete_suffixed(file, suffix)
-   local suffixed_file = find_suffixed(file, suffix)
+   local suffixed_file, err = find_suffixed(file, suffix)
    if not suffixed_file then
-      return nil, "File not found", "not found"
+      return nil, "Could not remove " .. file .. ": " .. err, "not found"
    end
 
    fs.delete(suffixed_file)
    if fs.exists(suffixed_file) then
-      return nil, "Failed deleting " .. suffixed_file, "fail"
+      return nil, "Failed deleting " .. suffixed_file .. ": file still exists", "fail"
    end
 
    return true