From e1d7fa386efb725ecd526ea24bebcf56cf4b1296 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 27 Sep 2000 00:39:45 +0000 Subject: no_comment --- perl-install/install2.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 93d5347e7..cd2c92d4c 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -220,7 +220,7 @@ sub selectMouse { #------------------------------------------------------------------------------ sub setupSCSI { - my ($clicked) = $_[0]; + my ($clicked) = @_; $o->{autoSCSI} ||= $::beginner; $o->setupSCSI($o->{autoSCSI} && !$clicked, $clicked); @@ -228,7 +228,7 @@ sub setupSCSI { #------------------------------------------------------------------------------ sub selectKeyboard { - my ($clicked) = $_[0]; + my ($clicked) = @_; return if !$o->{isUpgrade} && $::beginner && !$clicked; @@ -424,13 +424,13 @@ sub setupBootloader { } #------------------------------------------------------------------------------ sub configureX { - my ($clicked) = $_[0]; + my ($clicked) = @_; #- done here and also at the end of install2.pm, just in case... fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount}); modules::write_conf($o->{prefix}); - $o->configureX if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) && !$o->{X}{disabled} || $clicked; + $o->configureX($clicked) if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) && !$o->{X}{disabled} || $clicked; } #------------------------------------------------------------------------------ sub generateAutoInstFloppy { $o->generateAutoInstFloppy } -- cgit v1.2.1