From ddacfe44ad774226c39e7bf7cf3eabd5c5efc719 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 16 Sep 2005 15:38:26 +0000
Subject: space cleaning (thx perl_checko)

---
 perl-install/standalone/harddrake2 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/harddrake2')

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);
-- 
cgit v1.2.1