From 02b57b61aafd29a78023e242a0cf998cd93a91ee Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 9 Nov 1999 17:31:24 +0000 Subject: *** empty log message *** --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d1f871c65..0e8571442 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -778,14 +778,14 @@ _("Append") => \$e->{append}, _("Initrd") => { val => \$e->{initrd}, list => [ eval { glob_("/boot/initrd*") } ] }, _("Read-write") => { val => \$e->{'read-write'}, type => 'bool' } ); - @l = @l[0..5] if $::beginner; + @l = @l[0..5] unless $::expert; } else { @l = ( _("Root") => { val => \$name, list => [ map { "/dev/$_->{device}" } @{$o->{fstab}} ], not_edit => !$::expert }, _("Table") => { val => \$e->{table}, list => [ '', map { "/dev/$_->{device}" } @{$o->{hds}} ], not_edit => !$::expert }, _("Unsafe") => { val => \$e->{unsafe}, type => 'bool' } ); - @l = @l[0..1] if $::beginner; + @l = @l[0..1] unless $::expert; } @l = ( _("Label") => \$e->{label}, -- cgit v1.2.1