database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-02 11:44:50 +03:00
Code

Improve logic in PostgresVersion.pm

Browse Source 
Handle the situation where perl swaps the order of operands of
the comparison operator. See `perldoc overload` for details:

The third argument is set to TRUE if (and only if) the two
operands have been swapped. Perl may do this to ensure that the
first argument ($self) is an object implementing the overloaded
operation, in line with general object calling conventions.
This commit is contained in:
Andrew Dunstan 2021-04-27 08:21:15 -04:00
parent 0c8f40863a
commit fa26eba221
No known key found for this signature in database
GPG Key ID: 99FA7FCB59FC3B81
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/test/perl/PostgresVersion.pm
View File

@ -110,10 +110,12 @@ sub new
#
sub _version_cmp
{
my ($a, $b) = @_;
my ($a, $b, $swapped) = @_;
$b = __PACKAGE__->new($b) unless blessed($b);
($a, $b) = ($b, $a) if $swapped;
my ($an, $bn) = ($a->{num}, $b->{num});
for (my $idx = 0;; $idx++)