From 899f1c008d5f254f7395aeef697b34be81b7d573 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 23 Dec 2012 18:01:07 +0000
Subject: add support for strace

---
 perl-install/install/NEWS | 2 ++
 tools/drakx-in-chroot     | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 397d5ea0e..ce3063960 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- drakx-in-chroot:
+  o add --strace option, enabling to pinpoint missing modules
 - include missing module for upcasing UTF-8 characters (mga#8475)
 - media step:
   o prevent selecting an update medium without its parent medium
diff --git a/tools/drakx-in-chroot b/tools/drakx-in-chroot
index 0df251933..2a4b525ff 100755
--- a/tools/drakx-in-chroot
+++ b/tools/drakx-in-chroot
@@ -39,6 +39,8 @@ foreach (@ARGV) {
         $repository_uri = $1;
     } elsif (/--gdb/) {
         $wrapper = "gdb -q --args";
+    } elsif (/--strace/) {
+        $wrapper = "strace -e file";
     }
 }
 my ($repository_without_arch, $repository_arch) = basename($repository) eq arch() ? (dirname($repository), '/' . arch()) : ($repository, '');
-- 
cgit v1.2.1