Added the allow_other option by default

2025-11-27 17:24:26 +03:00
parent acd4359be0
commit a138c3648d
2 changed files with 3 additions and 3 deletions
--- a/bin/tar.ml
+++ b/bin/tar.ml
@@ -91,7 +91,7 @@ let rec add_deep node = function
     add_direct last node dir
  | (one :: rest, dir) ->
     add_direct one (add_deep node (rest, (find_or_infer_dir one dir))) dir
-  | _ -> failwith "heh"
+  | (_, dir) -> dir

 let inc_nlink path tree =
  add_deep