summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-05-24 20:15:27 +0000
committerThierry Vignaud <tv@mageia.org>2011-05-24 20:15:27 +0000
commit4034e1a0280c158795b958b3a156cc8ada1d1c6e (patch)
treeaa105a9c8b64746826cfe37609cf9c6fd5f37310 /perl-install/install
parent32582cce7290e08f2ad46995f2f27d2d27868555 (diff)
downloaddrakx-4034e1a0280c158795b958b3a156cc8ada1d1c6e.tar
drakx-4034e1a0280c158795b958b3a156cc8ada1d1c6e.tar.gz
drakx-4034e1a0280c158795b958b3a156cc8ada1d1c6e.tar.bz2
drakx-4034e1a0280c158795b958b3a156cc8ada1d1c6e.tar.xz
drakx-4034e1a0280c158795b958b3a156cc8ada1d1c6e.zip
(_is_kernelServer_needed) split it out of _bestKernel_extensions()
(needed for next commit)
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/pkgs.pm6
1 files changed, 5 insertions, 1 deletions
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';
}