diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-12-23 18:01:04 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-12-23 18:01:04 +0000 |
commit | 6c479462a4d90c60348396e2f13375391f22d96a (patch) | |
tree | 4453964993decf1c7358dbbdc5efbd2acd317c71 /tools | |
parent | 95d24865807ea5ab1811a46a6a8e455250d89f87 (diff) | |
download | drakx-6c479462a4d90c60348396e2f13375391f22d96a.tar drakx-6c479462a4d90c60348396e2f13375391f22d96a.tar.gz drakx-6c479462a4d90c60348396e2f13375391f22d96a.tar.bz2 drakx-6c479462a4d90c60348396e2f13375391f22d96a.tar.xz drakx-6c479462a4d90c60348396e2f13375391f22d96a.zip |
rename $gdb as $wrapper
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/drakx-in-chroot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/drakx-in-chroot b/tools/drakx-in-chroot index ac7d98ddf..0df251933 100755 --- a/tools/drakx-in-chroot +++ b/tools/drakx-in-chroot @@ -29,7 +29,7 @@ my ($disk_iso_repository, $repository_uri); "; (my $repository, my $dir, @ARGV) = @ARGV; -my ($gdb); +my ($wrapper); foreach (@ARGV) { if (/--resolution=(.*)/) { $resolution = $1; @@ -38,7 +38,7 @@ foreach (@ARGV) { } elsif (/--repository=(.*)/) { $repository_uri = $1; } elsif (/--gdb/) { - $gdb = "gdb -q --args"; + $wrapper = "gdb -q --args"; } } my ($repository_without_arch, $repository_arch) = basename($repository) eq arch() ? (dirname($repository), '/' . arch()) : ($repository, ''); @@ -155,7 +155,7 @@ if (my $pid = fork()) { if_($disk_iso_repository, "--method disk-iso"), if_($remote_repository, "--method $remote_repository"), @ARGV); - if ($gdb) { + if ($wrapper) { warn qq(GDB USAGE Beware that debug info won't be found so on segfault just generate a core dump with "gcore" and then @@ -166,7 +166,7 @@ Thus you sessions will look like: (gdb) exit ); } - exec "$sudo $gdb chroot $SLASH_LOCATION $cmd" or die "exec $cmd in $SLASH_LOCATION failed\n"; + exec "$sudo $wrapper chroot $SLASH_LOCATION $cmd" or die "exec $cmd in $SLASH_LOCATION failed\n"; } sub system_verbose { warn join(' ', @_), "\n" if $verbose; system(@_) } |