summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/harddrake2
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-09-16 15:38:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-09-16 15:38:26 +0000
commitddacfe44ad774226c39e7bf7cf3eabd5c5efc719 (patch)
tree005e2aa86dd11e01342d2680dc0f18876ee2c295 /perl-install/standalone/harddrake2
parent516c200b0a98124125b5453520e8c9a32fa70d42 (diff)
downloaddrakx-backup-do-not-use-ddacfe44ad774226c39e7bf7cf3eabd5c5efc719.tar
drakx-backup-do-not-use-ddacfe44ad774226c39e7bf7cf3eabd5c5efc719.tar.gz
drakx-backup-do-not-use-ddacfe44ad774226c39e7bf7cf3eabd5c5efc719.tar.bz2
drakx-backup-do-not-use-ddacfe44ad774226c39e7bf7cf3eabd5c5efc719.tar.xz
drakx-backup-do-not-use-ddacfe44ad774226c39e7bf7cf3eabd5c5efc719.zip
space cleaning (thx perl_checko)
Diffstat (limited to 'perl-install/standalone/harddrake2')
-rwxr-xr-xperl-install/standalone/harddrake23
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 864cfb4c4..b9957cc68 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -458,7 +458,8 @@ sub reap_children() {
# reap zombies
my $child_pid;
do { $child_pid = waitpid(-1, POSIX::WNOHANG); undef $pid if $pid == $child_pid } until $child_pid > 0;
-};
+}
+
$SIG{CHLD} = \&reap_children;
$w->{rwindow}->signal_connect(delete_event => \&quit_global);