summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake24
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index c762777f7..4a448ee08 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -441,12 +441,13 @@ foreach (@classes) {
$tree->expand_row($tree_model->get_path($parent_iter), 1) unless $title eq N("Unknown/Others");
}
-$SIG{CHLD} = sub {
+sub reap_children() {
undef $pid;
# reap zombies
my $child_pid;
do { $child_pid = waitpid(-1, POSIX::WNOHANG) } until $child_pid > 0;
};
+$SIG{CHLD} = \&reap_children;
$w->{rwindow}->signal_connect(delete_event => \&quit_global);
$w->{rwindow}->set_position('center') unless $::isEmbedded;
@@ -480,6 +481,7 @@ $_->hide foreach $module_cfg_button, $config_button; # hide buttons while no dev
}
}
}
+$SIG{CHLD} = \&reap_children;
undef $wait;
gtkset_mousecursor_normal();