diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
| commit | b0d554c4155060ed665844fdf7b2a08db9bb3356 (patch) | |
| tree | d1236029c2ac147b49a2da74bf132c3f56619406 /perl-install/install_any.pm | |
| parent | c2b148e1e94892d8d72000ed087b607ae28b5808 (diff) | |
| download | drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.gz drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.bz2 drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.xz drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.zip | |
perl_checker adaptations
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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"; |