diff options
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; |