cleaner path names

git-svn-id: http://luarocks.org/svn/luarocks/trunk@32 9ca3f7c1-7366-0410-b1a3-b5c78f85698c

1 files changed, 5 insertions, 0 deletions

diff --git a/src/luarocks/dir.lua b/src/luarocks/dir.lua
index b8f6bbd3..5a8058dc 100644
--- a/src/luarocks/dir.lua
+++ b/src/luarocks/dir.lua
@@ -25,6 +25,10 @@ function dir_name(pathname)
    return (pathname:gsub("/*$", ""):match("(.*/)[^/]*")) or ""
 end
 
+function strip_base_dir(pathname)
+   return pathname:gsub("^[^/]*/", "")
+end
+
 --- Describe a path in a cross-platform way.
 -- Use this function to avoid platform-specific directory
 -- separators in other modules. If the first item contains a 
@@ -37,6 +41,7 @@ function path(...)
    local items = {...}
    local i = 1
    while items[i] do
+      items[i] = items[i]:gsub("/*$", "")
       if items[i] == "" then
          table.remove(items, i)
       else