From 5d1faa9d720bf9f9da2fbb40804bae2c96ccced2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 May 2011 20:15:27 +0000 Subject: (_is_kernelServer_needed) split it out of _bestKernel_extensions() (needed for next commit) --- perl-install/install/pkgs.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/install/pkgs.pm') diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index d248a6e3c..92e4f0142 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -105,6 +105,10 @@ sub packageByName { $best; } +sub _is_kernelServer_needed { + arch() =~ /i.86/ && detect_devices::dmi_detect_memory() > 3.8 * 1024 || detect_devices::isServer(); +} + sub _bestKernel_extensions { my ($o_match_all_hardware) = @_; @@ -112,7 +116,7 @@ sub _bestKernel_extensions { $o_match_all_hardware ? (arch() =~ /i.86/ ? '-desktop586' : '-desktop') : detect_devices::is_xbox() ? '-xbox' : detect_devices::is_i586() ? '-desktop586' : - arch() =~ /i.86/ && detect_devices::dmi_detect_memory() > 3.8 * 1024 || detect_devices::isServer() ? '-server' : + _is_kernelServer_needed() ? '-server' : '-desktop'; } -- cgit v1.2.1