diff options
Diffstat (limited to 'os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm')
-rw-r--r-- | os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm b/os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm index 70a08859..1cd26b56 100644 --- a/os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm +++ b/os-plugins/plugins/xserver/OpenSLX/Distro/Base.pm @@ -186,38 +186,4 @@ sub getdkms } -sub getKernelVersion -{ - my $self = shift; - my $kernelPath = shift; - - my $newestKernelFile; - my $newestKernelFileSortKey = ''; - my $sortKey; - my $kernelPattern = '{vmlinuz,kernel-genkernel-x86}-*'; - foreach my $kernelFile (glob("$kernelPath/$kernelPattern")) { - next unless $kernelFile =~ m{ - (?:vmlinuz|x86)-(\d+)\.(\d+)\.(\d+)(?:\.(\d+))?-(\d+(?:\.\d+)?) - }x; - $sortKey - = sprintf("%02d.%02d.%02d.%02d-%2.1f", $1, $2, $3, $4||0, $5); - if ($newestKernelFileSortKey lt $sortKey) { - $newestKernelFile = $kernelFile; - $newestKernelFileSortKey = $sortKey; - } - } - - if (!defined $newestKernelFile) { - die _tr("unable to pick a kernel-file from path '%s'!", $kernelPath); - } - - $newestKernelFile =~ /.*?-([.\-0-9]*)-([a-zA-Z]*?)$/; - my $kernel = {}; - $kernel->{'version'} = $1; - $kernel->{'suffix'} = $2; - return $kernel; -# return $newestKernelFile; - -} - 1; |