From 4393846e9e365f2a32a9890a540b7a76251ff801 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 6 Mar 2003 20:26:43 +0000 Subject: cleanup --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 66f10144c..2390ffa79 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -962,7 +962,7 @@ sub use_root_part { my $handle = any::inspect($part, $prefix) or die; fs::get_info_from_fstab($all_hds, $handle->{dir}, 'uniq'); } - map { $_->{mntpoint} = 'swap' } grep { isSwap($_) } fsedit::get_really_all_fstab($all_hds); #- use all available swap. + isSwap($_) and $_->{mntpoint} = 'swap' foreach fsedit::get_really_all_fstab($all_hds); #- use all available swap. } sub getHds { -- cgit v1.2.1