(_is_kernelServer_needed) split it out of _bestKernel_extensions()

(needed for next commit)

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';
 }