From 85d4ff8729a0c348e801d5855539a22153fcabf0 Mon Sep 17 00:00:00 2001 From: Jonathan Bauer Date: Tue, 30 Jul 2013 14:17:57 +0200 Subject: fix for wrong kernel version check --- src/installer/OpenSLX/OSSetup/Distro/Base.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/installer/OpenSLX/OSSetup/Distro/Base.pm b/src/installer/OpenSLX/OSSetup/Distro/Base.pm index f3f35b62..fa0703f5 100644 --- a/src/installer/OpenSLX/OSSetup/Distro/Base.pm +++ b/src/installer/OpenSLX/OSSetup/Distro/Base.pm @@ -252,10 +252,10 @@ sub pickKernelFile my $kernelPattern = '{vmlinuz,kernel-genkernel-x86}-*'; foreach my $kernelFile (glob("$kernelPath/$kernelPattern")) { next unless $kernelFile =~ m{ - (?:vmlinuz|x86)-(\d+)\.(\d+)\.(\d+)(?:\.(\d+))?-(\d+(?:\.\d+)?) + (?:vmlinuz|x86)-(\d+)\.(\d+)\.(\d+)(?:\.(\d+))?-(\d+)(?:\.(\d+))?(?:\.(\d+))? }x; my $sortKey - = sprintf("%02d.%02d.%02d.%02d-%2.1f", $1, $2, $3, $4||0, $5); + = sprintf("%02d.%02d.%03d.%03d-%03d.%03d.%03d", $1, $2, $3, $4||0, $5, $6||0, $7||0); if ($newestKernelFileSortKey lt $sortKey) { $newestKernelFile = $kernelFile; $newestKernelFileSortKey = $sortKey; -- cgit v1.2.3-55-g7522