From de6f26ee0018894d7feb48bee44d3e2c02059b0d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Dec 2001 00:30:45 +0000 Subject: fix typos --- perl-install/any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 6c6135c7a..a34d6e8fc 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -147,7 +147,7 @@ sub setupBootloader { my $bootloader = arch() =~ /sparc/ ? __("SILO") : arch() =~ /ppc/ ? __("Yaboot") : __("LILO with graphical menu"); my $profiles = bootloader::has_profiles($b); my $memsize = bootloader::get_append($b, 'mem'); - my $prev_clean_tmp = my $clean_tmp = grep { $_->{mntpoint} eq '/tmp' } @{$hds->{special}}; + my $prev_clean_tmp = my $clean_tmp = grep { $_->{mntpoint} eq '/tmp' } @{$all_hds->{special} ||= []}; $b->{vga} ||= 'Normal'; if (arch !~ /ppc/) { @@ -208,9 +208,9 @@ sub setupBootloader { if ($prev_clean_tmp != $clean_tmp) { if ($clean_tmp) { - push @{$hds->{special}}, { device => 'none', mntpoint => '/tmp', type => 'tmpfs' }; + push @{$all_hds->{special}}, { device => 'none', mntpoint => '/tmp', type => 'tmpfs' }; } else { - @{$hds->{special}} = grep { $_->{mntpoint} eq '/tmp' } @{$hds->{special}}; + @{$all_hds->{special}} = grep { $_->{mntpoint} eq '/tmp' } @{$all_hds->{special}}; } } } -- cgit v1.2.1