Report configured port in MSVC built pg_config

adunstan · adunstan · commit fb424ae85f6b · 2021-05-28T09:30:16.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
@@ -1198,6 +1198,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
`@@ -1198,6 +1198,8 @@ sub GetFakeConfigure`
`1198`	`1198`	`$cfg .= ' --with-tcl' if ($self->{options}->{tcl});`
`1199`	`1199`	`$cfg .= ' --with-perl' if ($self->{options}->{perl});`
`1200`	`1200`	`$cfg .= ' --with-python' if ($self->{options}->{python});`
	`1201`	`+ my $port = $self->{options}->{'--with-pgport'};`
	`1202`	`+ $cfg .= " --with-pgport=$port" if defined($port)`
`1201`	`1203`
`1202`	`1204`	`return $cfg;`
`1203`	`1205`	`}`