diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2022-05-12 15:17:30 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2022-05-12 15:17:30 -0400 |
| commit | 23e7b38bfe396f919fdb66057174d29e17086418 (patch) | |
| tree | 335c3962ef8afe0f6193d0413dbc51642276b147 /src/test/perl/PostgreSQL/Version.pm | |
| parent | 93909599cdba64c8759d646983c0a4ef93de1e50 (diff) | |
| download | postgresql-23e7b38bfe396f919fdb66057174d29e17086418.tar.gz postgresql-23e7b38bfe396f919fdb66057174d29e17086418.zip | |
Pre-beta mechanical code beautification.
Run pgindent, pgperltidy, and reformat-dat-files.
I manually fixed a couple of comments that pgindent uglified.
Diffstat (limited to 'src/test/perl/PostgreSQL/Version.pm')
| -rw-r--r-- | src/test/perl/PostgreSQL/Version.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/test/perl/PostgreSQL/Version.pm b/src/test/perl/PostgreSQL/Version.pm index 30d328103b5..8f704911895 100644 --- a/src/test/perl/PostgreSQL/Version.pm +++ b/src/test/perl/PostgreSQL/Version.pm @@ -151,14 +151,14 @@ a dot unless the separator argument is given. sub major { - my ($self, %params) = @_; - my $result = $self->{num}->[0]; - if ($result + 0 < 10) - { - my $sep = $params{separator} || '.'; - $result .= "$sep$self->{num}->[1]"; - } - return $result; + my ($self, %params) = @_; + my $result = $self->{num}->[0]; + if ($result + 0 < 10) + { + my $sep = $params{separator} || '.'; + $result .= "$sep$self->{num}->[1]"; + } + return $result; } 1; |