On Tue, 20 Apr 2021 at 09:28, Andrew Dunstan <and...@dunslane.net> wrote:
>
>
> On 4/19/21 12:24 PM, Alvaro Herrera wrote:
> >> diff --git a/src/tools/msvc/MSBuildProject.pm
> >> b/src/tools/msvc/MSBuildProject.pm
> >> index ebb169e201..68606a296d 100644
> >> --- a/src/tools/msvc/MSBuildProject.pm
> >> +++ b/src/tools/msvc/MSBuildProject.pm
> >> @@ -310,11 +310,12 @@ sub WriteItemDefinitionGroup
> >> my $targetmachine =
> >> $self->{platform} eq 'Win32' ? 'MachineX86' : 'MachineX64';
> >>
> >> - my $includes = $self->{includes};
> >> - unless ($includes eq '' or $includes =~ /;$/)
> >> + my $includes = "";
> >> + foreach my $inc (@{ $self->{includes} })
> >> {
> >> - $includes .= ';';
> >> + $includes .= $inc . ";";
> >> }
> > Perl note: you can do this more easily as
> >
> > my $includes = join ';', @{$self->{includes}};
> > $includes .= ';' unless $includes eq '';
> >
>
> or even more simply:
>
>
> my $includes = join ';', @{$self->{includes}}, "";
Both look more compact. Thanks. I'll include this for the next version.
David
