diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2021-05-12 13:14:10 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2021-05-12 13:14:10 -0400 |
| commit | def5b065ff22a16a80084587613599fe15627213 (patch) | |
| tree | 13f424449b7fb90c85659071b6adf4e27ae6d272 /src/test/perl/PostgresVersion.pm | |
| parent | e6ccd1ce1644d1b40b7981f8bc172394de524f99 (diff) | |
| download | postgresql-def5b065ff22a16a80084587613599fe15627213.tar.gz postgresql-def5b065ff22a16a80084587613599fe15627213.zip | |
Initial pgindent and pgperltidy run for v14.
Also "make reformat-dat-files".
The only change worthy of note is that pgindent messed up the formatting
of launcher.c's struct LogicalRepWorkerId, which led me to notice that
that struct wasn't used at all anymore, so I just took it out.
Diffstat (limited to 'src/test/perl/PostgresVersion.pm')
| -rw-r--r-- | src/test/perl/PostgresVersion.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/test/perl/PostgresVersion.pm b/src/test/perl/PostgresVersion.pm index 55984ec7e81..4e764c36a55 100644 --- a/src/test/perl/PostgresVersion.pm +++ b/src/test/perl/PostgresVersion.pm @@ -78,9 +78,9 @@ sub new # Accept standard formats, in case caller has handed us the output of a # postgres command line tool my $devel; - ($arg,$devel) = ($1, $2) - if ($arg =~ - m!^ # beginning of line + ($arg, $devel) = ($1, $2) + if ( + $arg =~ m!^ # beginning of line (?:\(?PostgreSQL\)?\s)? # ignore PostgreSQL marker (\d+(?:\.\d+)*) # version number, dotted notation (devel|(?:alpha|beta|rc)\d+)? # dev marker - see version_stamp.pl @@ -95,7 +95,7 @@ sub new $devel ||= ""; - return bless { str => "$arg$devel", num => \@numbers }, $class; + return bless { str => "$arg$devel", num => \@numbers }, $class; } # Routine which compares the _pg_version_array obtained for the two @@ -129,7 +129,7 @@ sub _version_cmp # Render the version number using the saved string. sub _stringify { - my $self = shift; + my $self = shift; return $self->{str}; } |