Re: pgsql: Fix msvc builds for ActivePerl > 5.24

On Fri, Mar 02, 2018 at 11:42:32AM +0000, Magnus Hagander wrote:
> Fix msvc builds for ActivePerl > 5.24

> --- a/src/tools/msvc/Mkvcbuild.pm
> +++ b/src/tools/msvc/Mkvcbuild.pm
> @@ -524,9 +524,11 @@ sub mkvcbuild
>          my $perl_path = $solution->{options}->{perl} . '\lib\CORE\*perl*';
>  
>          # ActivePerl 5.16 provided perl516.lib; 5.18 provided libperl518.a
> +        # Starting with ActivePerl 5.24, both  perlnn.lib and libperlnn.a are provided.
> +        # In this case, prefer .lib.

Sounds reasonable, but ...

>          my @perl_libs =
>            grep { /perl\d+\.lib$|libperl\d+\.a$/ } glob($perl_path);
> -        if (@perl_libs == 1)
> +        if (@perl_libs > 0)
>          {
>              $plperl->AddLibrary($perl_libs[0]);
>          }

... the behavior doesn't match the comment.  By default, glob() sorts by ASCII
value, so @perl_libs = qw(libperl524.a perl524.lib).