Signed-off-by: Olaf Hering <olaf at 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 1c6243d..4247d09 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
Richard W.M. Jones
2013-Apr-11 18:09 UTC
[Libguestfs] [PATCH] remove leading tabs in zypp driver
On Thu, Apr 11, 2013 at 07:57:41PM +0200, Olaf Hering wrote:> Signed-off-by: Olaf Hering <olaf at aepfle.de> > --- > src/supermin_zypp_rpm.ml | 6 +++---Thanks pushed (2 patches). Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones Read my programming blog: http://rwmj.wordpress.com Fedora now supports 80 OCaml packages (the OPEN alternative to F#)
Apparently Analagous Threads
- [PATCH] skip unreadable files in zypp_rpm_list_files
- [PATCH 1/2] add run_shell helper
- [PATCH supermin v4] Supermin 5 rewrite.
- [PATCH] handle --use-installed in zypp driver
- [PATCH] febootstrap: Use contents of installed Debian packages instead of downloading and unpacking them.