Report configured port in MSVC built pg_config

adunstan · adunstan · commit 3f70d7e441b3 · 2021-05-28T09:32:24.000-04:00
This is a long standing omission, discovered when trying to write code
that relied on it.

Backpatch to all live branches.
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
@@ -864,6 +864,8 @@ sub GetFakeConfigure
 	$cfg .= ' --with-tcl'           if ($self->{options}->{tcl});
 	$cfg .= ' --with-perl'          if ($self->{options}->{perl});
 	$cfg .= ' --with-python'        if ($self->{options}->{python});
+	my $port = $self->{options}->{'--with-pgport'};
+	$cfg .= " --with-pgport=$port" if defined($port)
 
 	return $cfg;
 }

Original file line number	Diff line number	Diff line change
`@@ -864,6 +864,8 @@ sub GetFakeConfigure`
`864`	`864`	`$cfg .= ' --with-tcl' if ($self->{options}->{tcl});`
`865`	`865`	`$cfg .= ' --with-perl' if ($self->{options}->{perl});`
`866`	`866`	`$cfg .= ' --with-python' if ($self->{options}->{python});`
	`867`	`+ my $port = $self->{options}->{'--with-pgport'};`
	`868`	`+ $cfg .= " --with-pgport=$port" if defined($port)`
`867`	`869`
`868`	`870`	`return $cfg;`
`869`	`871`	`}`