From 4bb8cb1c4187ce2b46940a4ca814cd98bb433f8a Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 21 Dec 2000 12:32:11 +0000 Subject: firewall : automatic class set when firewall (beginner=0) --- perl-install/install2.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 27555e4fd..008e7295c 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -452,6 +452,7 @@ sub main { $::isInstall = 1; $::beginner = $::expert = $::g_auto_install = 0; + symlinkf("/tmp/image", "/tmp/rhimage"); #- c::unlimit_core() unless $::testing; @@ -478,7 +479,7 @@ sub main { my $f = ${{ oem => sub { $::oem = $v }, lang => sub { $o->{lang} = $v }, - flang => sub { $o->{lang} = $v ; push @auto, 'selectLanguage' }, + flang => sub { $o->{lang} = $v ; push @auto, 'selectLanguage'; }, method => sub { $o->{method} = $v }, pcmcia => sub { $o->{pcmcia} = $v }, vga16 => sub { $o->{vga16} = $v }, @@ -489,7 +490,7 @@ sub main { class => sub { $o->{installClass} = $v }, fclass => sub { $o->{installClass} = $v; push @auto, 'selectInstallClass' }, desktop => sub { $o->{meta_class} = 'desktop' }, - firewall => sub { $o->{meta_class} = 'firewall'; push @auto, 'selectInstallClass'}, + firewall => sub { $o->{meta_class} = 'firewall'; push @auto, 'selectInstallClass'; $::beginner = 0}, lnx4win => sub { $o->{lnx4win} = 1 }, readonly => sub { $o->{partitioning}{readonly} = $v ne "0" }, display => sub { $o->{display} = $v }, -- cgit v1.2.1