add support for --gdb

2 files changed, 18 insertions, 1 deletions

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 787327a60..25c6895d2 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- drakx-in-chroot:
+  o add support for --gdb
+
 Version 13.75 - 29 December 2011
 
 - stop udev at end of install
diff --git a/tools/drakx-in-chroot b/tools/drakx-in-chroot
index a4064ed5b..744b68096 100755
--- a/tools/drakx-in-chroot
+++ b/tools/drakx-in-chroot
@@ -29,6 +29,7 @@ my ($disk_iso_repository, $repository_uri);
 ";
 
 (my $repository, my $dir, @ARGV) = @ARGV;
+my ($gdb);
 foreach (@ARGV) {
     if (/--resolution=(.*)/) {
         $resolution = $1;
@@ -36,6 +37,8 @@ foreach (@ARGV) {
         $disk_iso_repository = $1;
     } elsif (/--repository=(.*)/) {
         $repository_uri = $1;
+    } elsif (/--gdb/) {
+        $gdb = "gdb -q --args";
     }
 }
 my ($repository_without_arch, $repository_arch) = basename($repository) eq arch() ? (dirname($repository), '/' . arch()) : ($repository, '');
@@ -137,7 +140,18 @@ if (my $pid = fork()) {
                    if_($disk_iso_repository, "--method disk-iso"),
 		   if_($remote_repository, "--method $remote_repository"),
 		   @ARGV);
-    exec "$sudo chroot $SLASH_LOCATION $cmd" or die "exec $cmd in $SLASH_LOCATION failed\n";
+    if ($gdb) {
+	warn qq(GDB USAGE
+Beware that debug info won't be found so on segfault
+just generate a core dump with "gcore" and then
+analyze it offline.
+Thus you sessions will look like:
+(gdb) run
+(gdb) gcore
+(gdb) exit
+);
+    }
+    exec "$sudo $gdb chroot $SLASH_LOCATION $cmd" or die "exec $cmd in $SLASH_LOCATION failed\n";
 }
 
 sub system_verbose { warn join(' ', @_), "\n" if $verbose; system(@_) }