From 137cba98aa58448cc48aac6ab5d7179d048cbcf0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 2 Aug 2004 08:01:14 +0000 Subject: - move package_needed_for_partition_type() from fsedit to fs::format - create check_package_is_installed() in fs::format and use it --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 49dd76a57..5c30dcf40 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -477,7 +477,7 @@ sub setDefaultPackages { push @{$o->{default_packages}}, "lvm2" if !is_empty_array_ref($o->{all_hds}{lvms}); push @{$o->{default_packages}}, "alsa", "alsa-utils" if any { $o->{modules_conf}->get_alias("sound-slot-$_") =~ /^snd-/ } 0 .. 4; push @{$o->{default_packages}}, "grub" if isLoopback(fsedit::get_root($o->{fstab})); - push @{$o->{default_packages}}, uniq(grep { $_ } map { fsedit::package_needed_for_partition_type($_) } @{$o->{fstab}}); + push @{$o->{default_packages}}, uniq(grep { $_ } map { fs::format::package_needed_for_partition_type($_) } @{$o->{fstab}}); #- if no cleaning needed, populate by default, clean is used for second or more call to this function. unless ($b_clean) { -- cgit v1.2.1