Report configured port in MSVC built pg_config

adunstan · adunstan · commit ae3ef856938f · 2021-05-28T09:32:09.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
@@ -898,6 +898,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
`@@ -898,6 +898,8 @@ sub GetFakeConfigure`
`898`	`898`	`$cfg .= ' --with-tcl' if ($self->{options}->{tcl});`
`899`	`899`	`$cfg .= ' --with-perl' if ($self->{options}->{perl});`
`900`	`900`	`$cfg .= ' --with-python' if ($self->{options}->{python});`
	`901`	`+ my $port = $self->{options}->{'--with-pgport'};`
	`902`	`+ $cfg .= " --with-pgport=$port" if defined($port)`
`901`	`903`
`902`	`904`	`return $cfg;`
`903`	`905`	`}`