From: Andrew Dunstan <andrew@dunslane.net> Date: Tue, 15 May 2007 01:57:57 +0000 (+0000) Subject: fix perl thinko X-Git-Tag: REL8_3_BETA1~688 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ea7f18d15b28861de28932848ba284dbd5bb6c88;p=postgresql fix perl thinko --- diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm index 8983978c72..405f8d2d90 100644 --- a/src/tools/msvc/Solution.pm +++ b/src/tools/msvc/Solution.pm @@ -3,7 +3,7 @@ package Solution; # # Package that encapsulates a Visual C++ solution file generation # -# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.24 2007/05/15 00:15:01 adunstan Exp $ +# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.25 2007/05/15 01:57:57 adunstan Exp $ # use Carp; use strict; @@ -125,7 +125,7 @@ s{PG_VERSION_STR "[^"]+"}{__STRINGIFY(x) #x\n#define __STRINGIFY2(z) __STRINGIFY print O "#define HAVE_KRB5_TICKET_ENC_PART2 1\n"; print O "#define PG_KRB_SRVNAM \"postgres\"\n"; } - if (my $port = $self->{options}->{--with-pgport}) + if (my $port = $self->{options}->{"--with-pgport"}) { print O "#define DEF_PGPORT $port\n"; print O "#define DEF_PGPORT_STR \"$port\"\n";