Fix for bug 121735: Perl warning running checksetup.pl if a module has a

non-numeric version number. Patch sets checksetup.pl to use a string
compare instead of a numeric one.

Patch by Dave Miller. r1=Bradley Baetz and r2=Gerv
This commit is contained in:
zach%zachlipton.com 2002-01-27 18:59:38 +00:00
Родитель c265760507
Коммит b1b574cd2e
1 изменённых файлов: 2 добавлений и 2 удалений

Просмотреть файл

@ -167,10 +167,10 @@ sub have_vers {
$vnum = ${"${pkg}::VERSION"} || ${"${pkg}::Version"} || 0;
$vnum = -1 if $@;
if ($vnum < 0) {
if ($vnum eq "-1") { # string compare just in case it's non-numeric
$vstr = "not found";
}
elsif ($vnum > 0) {
elsif (vers_cmp($vnum,"0") > -1) {
$vstr = "found v$vnum";
}
else {