Properly sort kernel versions
This commit is contained in:
parent
615c89e412
commit
0ca82033e9
|
@ -13,6 +13,7 @@ use Config::IniFiles;
|
||||||
use File::Temp qw(tempfile tempdir);
|
use File::Temp qw(tempfile tempdir);
|
||||||
use File::Copy;
|
use File::Copy;
|
||||||
use File::Path qw(make_path remove_tree);
|
use File::Path qw(make_path remove_tree);
|
||||||
|
use Sort::Versions;
|
||||||
|
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
$Data::Dumper::Indent = 1;
|
$Data::Dumper::Indent = 1;
|
||||||
|
@ -246,9 +247,11 @@ sub latestKernel {
|
||||||
my @prefixes = ( "vmlinux*", "vmlinuz*", "linux*", "kernel*" );
|
my @prefixes = ( "vmlinux*", "vmlinuz*", "linux*", "kernel*" );
|
||||||
for my $prefix (@prefixes) {
|
for my $prefix (@prefixes) {
|
||||||
my $glob = join( '/', ( $runConf{bootdir}, $prefix ) );
|
my $glob = join( '/', ( $runConf{bootdir}, $prefix ) );
|
||||||
my @kernels = sort glob($glob);
|
my @kernels = glob($glob);
|
||||||
next if !@kernels;
|
next if !@kernels;
|
||||||
return pop @kernels;
|
for (sort { versioncmp($b, $a) } @kernels ) {
|
||||||
|
return $_;
|
||||||
|
};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue