From d3ce6c45026d776ec5fdff72f44085d42c5667bd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 26 Nov 2002 14:27:55 +0000
Subject: perl_checker fixes

---
 perl-install/run_program.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/run_program.pm')

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 71f4cee03..bb28acda3 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -57,7 +57,7 @@ sub raw {
     my $stdout = $stdout_raw && (ref($stdout_raw) ? "$ENV{HOME}/tmp/.drakx-stdout.$$" : "$root$stdout_raw");
     my $stderr = $stderr_raw && (ref($stderr_raw) ? "$ENV{HOME}/tmp/.drakx-stderr.$$" : "$root$stderr_raw");
 
-    if (my $pid = fork) {
+    if (my $pid = fork()) {
 	my $ok;
 	eval {
 	    local $SIG{ALRM} = sub { die "ALARM" };
-- 
cgit v1.2.1