summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-23 18:01:04 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-23 18:01:04 +0000
commit6c479462a4d90c60348396e2f13375391f22d96a (patch)
tree4453964993decf1c7358dbbdc5efbd2acd317c71 /tools
parent95d24865807ea5ab1811a46a6a8e455250d89f87 (diff)
downloaddrakx-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-xtools/drakx-in-chroot8
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(@_) }