summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-29 08:25:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-29 08:25:38 +0000
commit463989dafebba2e45ad97bf45ad53a661bf908e9 (patch)
tree5e528ee6b835abf92650adbeac660049f9aac2fa /perl-install/standalone/service_harddrake
parentb4244f900249cab5af604d98f045b218a9b4f145 (diff)
downloaddrakx-backup-do-not-use-463989dafebba2e45ad97bf45ad53a661bf908e9.tar
drakx-backup-do-not-use-463989dafebba2e45ad97bf45ad53a661bf908e9.tar.gz
drakx-backup-do-not-use-463989dafebba2e45ad97bf45ad53a661bf908e9.tar.bz2
drakx-backup-do-not-use-463989dafebba2e45ad97bf45ad53a661bf908e9.tar.xz
drakx-backup-do-not-use-463989dafebba2e45ad97bf45ad53a661bf908e9.zip
for removable devices, we've to remove/add them one by one, so when
several devices of the same class are removed/added, we ask if we should handle them several time. let ask confirmation once per class instead (olivier blin, #6649)
Diffstat (limited to 'perl-install/standalone/service_harddrake')
-rwxr-xr-xperl-install/standalone/service_harddrake32
1 files changed, 16 insertions, 16 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index c7dd82de0..c17f272f6 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -78,22 +78,22 @@ foreach (@harddrake::data::tree) {
}
next unless -x first(split /\s+/, $configurator_pool[0]);
- foreach my $configurator (@configurator_pool) {
- my ($pid, $no);
- $SIG{ALRM} = sub { $no = 1; kill 15, $pid };
- unless ($pid = fork()) {
- exec("/usr/share/harddrake/confirm 'Hardware changes in $Ident class ($timeout seconds to answer)' '" . $msg . "Do you want to run the appropriate config tool ?'");
- }
- alarm($timeout);
- wait();
- my $res = $?;
- alarm(0);
- if ($no) {
- require interactive;
- undef $wait;
- $in ||= interactive->vnew;
- $wait = $in->wait_message(N("Please wait"), N("Hardware probing in progress"));
- } elsif ($res) {
+ my ($pid, $no);
+ $SIG{ALRM} = sub { $no = 1; kill 15, $pid };
+ unless ($pid = fork()) {
+ exec("/usr/share/harddrake/confirm 'Hardware changes in $Ident class ($timeout seconds to answer)' '" . $msg . "Do you want to run the appropriate config tool ?'");
+ }
+ alarm($timeout);
+ wait();
+ my $res = $?;
+ alarm(0);
+ if ($no) {
+ require interactive;
+ undef $wait;
+ $in ||= interactive->vnew;
+ $wait = $in->wait_message(N("Please wait"), N("Hardware probing in progress"));
+ } elsif ($res) {
+ foreach my $configurator (@configurator_pool) {
if (fork()) {
wait();
} else { exec("$configurator 2>/dev/null") or die "$configurator missing\n" }