39 lines
1.3 KiB
Diff
39 lines
1.3 KiB
Diff
From 8518865218063cb2db1e7a7ab7dfc3fc0a80561c Mon Sep 17 00:00:00 2001
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
Date: Sat, 29 Jul 2017 10:39:43 +0100
|
|
Subject: [PATCH 01/10] prepare: Add some debugging of config files / creating
|
|
base.tar.gz.
|
|
|
|
---
|
|
src/mode_prepare.ml | 9 +++++++--
|
|
1 file changed, 7 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/src/mode_prepare.ml b/src/mode_prepare.ml
|
|
index e8cf058..7c8221e 100644
|
|
--- a/src/mode_prepare.ml
|
|
+++ b/src/mode_prepare.ml
|
|
@@ -146,6 +146,10 @@ let prepare debug (copy_kernel, format, host_cpu,
|
|
with Sys_error _ -> false
|
|
) config_files in
|
|
|
|
+ if debug >= 1 then
|
|
+ printf "supermin: there are %d config files\n"
|
|
+ (List.length config_files);
|
|
+
|
|
(* Put the list of config files into a file, for tar to read. *)
|
|
let files_from = tmpdir // "files-from.txt" in
|
|
let chan = open_out files_from in
|
|
@@ -158,6 +162,7 @@ let prepare debug (copy_kernel, format, host_cpu,
|
|
let base = outputdir // "base.tar.gz" in
|
|
if debug >= 1 then printf "supermin: writing %s\n%!" base;
|
|
let cmd =
|
|
- sprintf "tar -C %s -zcf %s -T %s"
|
|
- (quote dir) (quote base) (quote files_from) in
|
|
+ sprintf "tar%s -C %s -zcf %s -T %s"
|
|
+ (if debug >=1 then " -v" else "")
|
|
+ (quote dir) (quote base) (quote files_from) in
|
|
run_command cmd;
|
|
--
|
|
2.13.1
|
|
|