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 | 817b21edbd274e540d9fc33bf99fc073539c3397 (patch) | |
tree | 4453964993decf1c7358dbbdc5efbd2acd317c71 /tools | |
parent | efea5baf6f6009c4e3ac2fd32d1913127624025b (diff) | |
download | drakx-backup-do-not-use-817b21edbd274e540d9fc33bf99fc073539c3397.tar drakx-backup-do-not-use-817b21edbd274e540d9fc33bf99fc073539c3397.tar.gz drakx-backup-do-not-use-817b21edbd274e540d9fc33bf99fc073539c3397.tar.bz2 drakx-backup-do-not-use-817b21edbd274e540d9fc33bf99fc073539c3397.tar.xz drakx-backup-do-not-use-817b21edbd274e540d9fc33bf99fc073539c3397.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(@_) } |