NotificationsYou must be signed in to change notification settings
Fork6
Star31

Commitfa26eba

committed

Improve logic in PostgresVersion.pm

Handle the situation where perl swaps the order of operands ofthe comparison operator. See `perldoc overload` for details:The third argument is set to TRUE if (and only if) the twooperands have been swapped. Perl may do this to ensure that thefirst argument ($self) is an object implementing the overloadedoperation, in line with general object calling conventions.

1 parent0c8f408 commitfa26ebaCopy full SHA for fa26eba

File tree

1 file changed

-1

lines changed

src/test/perl
- PostgresVersion.pm

1 file changed

-1

lines changed

`‎src/test/perl/PostgresVersion.pm`

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -110,10 +110,12 @@ sub new`
`110`	`110`	`#`
`111`	`111`	`sub_version_cmp`
`112`	`112`	`{`
`113`		`-my ($a,$b) =@_;`
	`113`	`+my ($a,$b,$swapped) =@_;`
`114`	`114`
`115`	`115`	`$b =__PACKAGE__->new($b)unless blessed($b);`
`116`	`116`
	`117`	`+($a,$b) = ($b,$a)if$swapped;`
	`118`	`+`
`117`	`119`	`my ($an,$bn) = ($a->{num},$b->{num});`
`118`	`120`
`119`	`121`	`for (my$idx = 0;;$idx++)`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commitfa26eba

File tree

1 file changed

1 file changed

`‎src/test/perl/PostgresVersion.pm`

0 commit comments