From 93598c10650ab7d885b7f497308d05d478eb5e06 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 18 Oct 2011 14:12:21 +0100 Subject: [PATCH] debian: Fix Debian package handler when --use-installed not given. If there is no --use-installed option, then it didn't download all the packages (only the ones not installed). But this failed later when it tried to unpack the packages that hadn't been downloaded. Thus download all the packages if !use_installed. --- src/febootstrap_debian.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/febootstrap_debian.ml b/src/febootstrap_debian.ml index 85c9b7e..0169756 100644 --- a/src/febootstrap_debian.ml +++ b/src/febootstrap_debian.ml @@ -62,9 +62,13 @@ let rec debian_resolve_dependencies_and_download names = not (List.exists (fun re -> Str.string_match re name 0) excludes) ) pkgs in - let present_pkgs, download_pkgs = List.partition ( - fun pkg -> List.exists ((=) pkg) (get_installed_pkgs ()) - ) pkgs in + let present_pkgs, download_pkgs = + if not use_installed then + [], pkgs + else + List.partition ( + fun pkg -> List.exists ((=) pkg) (get_installed_pkgs ()) + ) pkgs in debug "wanted packages (present / download): %s / %s\n" (String.concat " " present_pkgs) -- 1.8.3.1