On 2021-Apr-22, Andrew Dunstan wrote:
> # 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/^(?:\(?PostgreSQL\)? )?(\d+(?:\.\d+)*)(devel)?/);
>
> # Split into an array
> my @result = split(/\./, $arg);
>
> # Treat development versions as having a minor/micro version one
> less than
> # the first released version of that branch.
> push @result, -1 if ($devel);
>
> return bless \@result, $class;
WFM, thanks :-)
--
Álvaro Herrera 39°49'30"S 73°17'W
