diff options
| -rw-r--r-- | perl-install/install2.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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 }, |