fixed absurd mismatch of use of <=> and cmp on versionCompare.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3d143c8d7..ff6d0a0ad 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -864,7 +864,7 @@ sub versionCompare($$) {
 
     while ($a || $b) {
 	my ($sb, $sa) =  map { $1 if $a =~ /^\W*\d/ ? s/^\W*0*(\d+)// : s/^\W*(\D*)// } ($b, $a);
-	$_ = length($sa) cmp length($sb) || $sa cmp $sb and return $_;
+	$_ = length($sa) <=> length($sb) || $sa cmp $sb and return $_;
 	$sa eq '' && $sb eq '' and return $a cmp $b || 0;
     }
 }