From 4021e502ce287bab1116e8d60dc2b1a3edf49cae Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 5 Apr 2004 11:17:41 +0000 Subject: (setDefaultPackages) despite find and any are semantically equivalent in this context, any will be used there (boolean vs scalar context) --- 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 e93664e0c..9fb467cfa 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -329,7 +329,7 @@ sub setDefaultPackages { push @{$o->{default_packages}}, "numlock" if $o->{miscellaneous}{numlock}; push @{$o->{default_packages}}, "raidtools" if !is_empty_array_ref($o->{all_hds}{raids}); push @{$o->{default_packages}}, "lvm2" if !is_empty_array_ref($o->{all_hds}{lvms}); - push @{$o->{default_packages}}, "alsa", "alsa-utils" if find { modules::get_alias("sound-slot-$_") =~ /^snd-/ } 0 .. 4; + push @{$o->{default_packages}}, "alsa", "alsa-utils" if any { modules::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}}); -- cgit v1.2.1