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

Fix for bug 121735: Perl warning running checksetup.pl if a module has a
5bbb0f10 · zach%zachlipton.com · f87e6aed · 5bbb0f10
Commit 5bbb0f10 authored Jan 28, 2002 by zach%zachlipton.com
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

checksetup.pl checksetup.pl +2 -2

No files found.
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -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 {