forked from pool/supermin
Olaf Hering
e04d44186c
OBS-URL: https://build.opensuse.org/package/show/Virtualization/supermin?expand=0&rev=5
42 lines
1.7 KiB
Diff
42 lines
1.7 KiB
Diff
From 7a2b8a95e0e6d8dea105db6853d23a6e6d68694e Mon Sep 17 00:00:00 2001
|
|
From: Olaf Hering <olaf@aepfle.de>
|
|
Date: Thu, 11 Apr 2013 19:57:41 +0200
|
|
Subject: remove leading tabs in zypp driver
|
|
|
|
Signed-off-by: Olaf Hering <olaf@aepfle.de>
|
|
---
|
|
src/supermin_zypp_rpm.ml | 6 +++---
|
|
1 file changed, 3 insertions(+), 3 deletions(-)
|
|
|
|
diff --git a/src/supermin_zypp_rpm.ml b/src/supermin_zypp_rpm.ml
|
|
index 9aa9de6..09b1695 100644
|
|
--- a/src/supermin_zypp_rpm.ml
|
|
+++ b/src/supermin_zypp_rpm.ml
|
|
@@ -173,7 +173,7 @@ let rec zypp_rpm_list_files pkg =
|
|
| [filename; flags; mode; size] ->
|
|
let test_flag = String.contains flags in
|
|
let mode = int_of_string mode in
|
|
- let size = int_of_string size in
|
|
+ let size = int_of_string size in
|
|
if test_flag 'd' then None (* ignore documentation *)
|
|
else (
|
|
(* Skip unreadable files when called as non-root *)
|
|
@@ -206,7 +206,7 @@ let rec zypp_rpm_list_files pkg =
|
|
List.map (fun name ->
|
|
name, { ft_dir = true; ft_ghost = false;
|
|
ft_config = false; ft_mode = 0o40755;
|
|
- ft_size = 0 }) dirs in
|
|
+ ft_size = 0 }) dirs in
|
|
let devs = [ "/dev/null"; "/dev/full"; "/dev/zero"; "/dev/random";
|
|
"/dev/urandom"; "/dev/tty"; "/dev/console";
|
|
"/dev/ptmx"; "/dev/stdin"; "/dev/stdout"; "/dev/stderr" ] in
|
|
@@ -215,7 +215,7 @@ let rec zypp_rpm_list_files pkg =
|
|
List.map (fun name ->
|
|
name, { ft_dir = false; ft_ghost = false;
|
|
ft_config = false; ft_mode = 0o644;
|
|
- ft_size = 0 }) devs in
|
|
+ ft_size = 0 }) devs in
|
|
dirs @ devs @ files
|
|
) else files in
|
|
|