From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Nov 2002 20:50:12 +0000
Subject: perl_checker adaptations

---
 perl-install/install_any.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ec9ef9ad6..6e0003e97 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -228,7 +228,7 @@ sub spawnShell {
 
     -x "/bin/sh" or die "cannot open shell - /bin/sh doesn't exist";
 
-    fork and return;
+    fork() and return;
 
     $ENV{DISPLAY} ||= ":0"; #- why not :pp
 
@@ -749,7 +749,7 @@ sub g_auto_install {
 
     local $o->{partitioning}{auto_allocate} = !$replay;
     $o->{autoExitInstall} = !$replay;
-    $o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions'] if $replay;
+    $o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions' ] if $replay;
 
     #- deep copy because we're modifying it below
     $o->{users} = [ @{$o->{users} || []} ];
@@ -897,7 +897,7 @@ sub g_default_packages {
 }
 
 sub loadO {
-    my ($O, $f) = @_; $f ||= auto_inst_file;
+    my ($O, $f) = @_; $f ||= auto_inst_file();
     my $o;
     if ($f =~ /^(floppy|patch)$/) {
 	my $f = $f eq "floppy" ? 'auto_inst.cfg' : "patch";
-- 
cgit v1.2.1