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
