os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

simplify matching of release version numbers

Browse source
This commit is contained in:
Wolfram Schneider 2019-05-14 16:41:31 +00:00
parent 1cd15c07c8
commit 6bba348e91
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/head/; revision=53014
1 changed files with 7 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
en_US.ISO8859-1/htdocs/cgi/man.cgi
View file

@ -906,28 +906,21 @@ while ( ( $key, $val ) = each %manPath ) {
#
sub sort_versions {
# a release has at least 2 numbers seperated by a dot:
# FreeBSD 11.1-RELEASE ports
my @a = ( lc($a) =~ m,^(\D+)([\d\.]+)(\D*)$, );
my @b = ( lc($b) =~ m,^(\D+)([\d\.]+)(\D*)$, );
# X11R7.4
my @a = ( lc($a) =~ m,^(.*?)(\d+\.[\d\.]+)(.*)$, );
my @b = ( lc($b) =~ m,^(.*?)(\d+\.[\d\.]+)(.*)$, );
if (@a and @b) {
return $a[0] cmp $b[0] || # FreeBDS <=> IRIX
&version($a[1], $b[1]) || # 6.5.30 <=> 6.5.31
$a[2] cmp $a[2] || # RELEASE <=> ports
$a cmp $b; # rest
} else {
# for the rest: basic string compare
return $a cmp $b;
}
# 2.9.1 BSD
@a = ( lc($a) =~ m,^([\d\.]+)(.*)$, );
@b = ( lc($b) =~ m,^([\d\.]+)(.*)$, );
if (@a and @b) {
return &version($a[0], $b[0]) || # 2.9.1BSD
$a[1] <=> $b[1] || # BSD
$a cmp $b; # rest
}
# rest
return $a cmp $b;
}
sub version {