Update install/data/tarbad

Reviewed-on: #12

install/data/tarbad

@@ -1,3 +1,4 @@
+
 local function octal_to_number(str)
     str = str:gsub("%z", ""):match("^%s*(.-)%s*$")
     return tonumber(str, 8) or 0
@@ -97,16 +98,16 @@ local function unpack_tar(tarstr)
         local pad = (512 - (size % 512)) % 512
         i = i + size + pad
 
-        if name ~= "" then
+        if name == "" then goto continue end
 
                 local is_dir = typeflag == "5" or name:sub(-1) == "/"
-            local clean_name = name:gsub("/$", "")
 
-            if clean_name ~= "" then
+                local clean_name = name:gsub("/$", "")
+        if clean_name == "" then goto continue end
 
         local parent_path = clean_name:match("(.+)/")
         local fname = clean_name:match("([^/]+)$")
-                if not fname then
+        if not fname then goto continue end
 
         local parent = root
         if parent_path then
@@ -118,9 +119,8 @@ local function unpack_tar(tarstr)
         else
             parent[fname] = { __type = "file", __contents = contents }
         end
-                end
-            end
-        end
+
+        ::continue::
     end
 
     return flatten(root)