Fix version comparison in Version.pm

adunstan · adunstan · commit 038512f71ea8 · 2022-11-18T08:47:46.000-05:00
Version strings with unequal numbers of parts were being compared incorrectly. We cure this by treating a missing part in the shorter version as 0. per complaint from Jehan-Guillaume de Rorthais, but the fix is mine, not his. Discussion: https://postgr.es/m/20220628225325.53d97b8d@karst Backpatch to release 14 where this code was introduced.
diff --git a/src/test/perl/PostgresVersion.pm b/src/test/perl/PostgresVersion.pm
@@ -120,9 +120,12 @@ sub _version_cmp
 
 	for (my $idx = 0;; $idx++)
 	{
-		return 0 unless (defined $an->[$idx] && defined $bn->[$idx]);
-		return $an->[$idx] <=> $bn->[$idx]
-		  if ($an->[$idx] <=> $bn->[$idx]);
+		return 0
+		  if ($idx >= @$an && $idx >= @$bn);
+		# treat a missing number as 0
+		my ($anum, $bnum) = ($an->[$idx] || 0, $bn->[$idx] || 0);
+		return $anum <=> $bnum
+		  if ($anum <=> $bnum);
 	}
 }
 

Original file line number	Diff line number	Diff line change
`@@ -120,9 +120,12 @@ sub _version_cmp`
`120`	`120`
`121`	`121`	`for (my $idx = 0;; $idx++)`
`122`	`122`	`{`
`123`		`- return 0 unless (defined $an->[$idx] && defined $bn->[$idx]);`
`124`		`- return $an->[$idx] <=> $bn->[$idx]`
`125`		`- if ($an->[$idx] <=> $bn->[$idx]);`
	`123`	`+ return 0`
	`124`	`+ if ($idx >= @$an && $idx >= @$bn);`
	`125`	`+ # treat a missing number as 0`
	`126`	`+ my ($anum, $bnum) = ($an->[$idx] \|\| 0, $bn->[$idx] \|\| 0);`
	`127`	`+ return $anum <=> $bnum`
	`128`	`+ if ($anum <=> $bnum);`
`126`	`129`	`}`
`127`	`130`	`}`
`128`	`131`