Report configured port in MSVC built pg_config

adunstan · adunstan · commit c828a7246eed · 2021-05-28T09:31:50.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
@@ -1172,6 +1172,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
`@@ -1172,6 +1172,8 @@ sub GetFakeConfigure`
`1172`	`1172`	`$cfg .= ' --with-tcl' if ($self->{options}->{tcl});`
`1173`	`1173`	`$cfg .= ' --with-perl' if ($self->{options}->{perl});`
`1174`	`1174`	`$cfg .= ' --with-python' if ($self->{options}->{python});`
	`1175`	`+ my $port = $self->{options}->{'--with-pgport'};`
	`1176`	`+ $cfg .= " --with-pgport=$port" if defined($port)`
`1175`	`1177`
`1176`	`1178`	`return $cfg;`
`1177`	`1179`	`}`