Update copyright notices in manual pages.

[febootstrap.git] / febootstrap_debian.ml

diff --git a/febootstrap_debian.ml b/febootstrap_debian.ml
index c0cfbac..4aa7389 100644 (file)
--- a/febootstrap_debian.ml
+++ b/febootstrap_debian.ml
@@ -47,7 +47,7 @@ let debian_resolve_dependencies_and_download names =
 
   (* Download the packages. *)
   let cmd =
-    sprintf "cd %s && aptitude download %s"
+    sprintf "umask 0000; cd %s && aptitude download %s"
       (Filename.quote tmpdir)
       (String.concat " " (List.map Filename.quote pkgs)) in
   run_command cmd;
@@ -85,7 +85,7 @@ let debian_list_files pkg =
   let pkgdir = tmpdir // pkg ^ ".d" in
   mkdir pkgdir 0o755;
   let cmd =
-    sprintf "dpkg-deb --fsys-tarfile %s | (cd %s && tar xf -)"
+    sprintf "umask 0000; dpkg-deb --fsys-tarfile %s | (cd %s && tar xf -)"
       (tmpdir // pkg) pkgdir in
   run_command cmd;
 
@@ -107,12 +107,12 @@ let debian_list_files pkg =
       (* No per-file metadata like in RPM, but we can synthesize it
        * from the path.
        *)
-      let config = statbuf.st_kind = S_REG && string_prefix path "/etc/" in
+      let config = statbuf.st_kind = S_REG && string_prefix "/etc/" path in
 
       let mode = statbuf.st_perm in
 
       (path, { ft_dir = is_dir; ft_config = config; ft_mode = mode;
-              ft_ghost = false })
+              ft_ghost = false; ft_size = statbuf.st_size })
   ) lines in
 
   files