From ea7f18d15b28861de28932848ba284dbd5bb6c88 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Tue, 15 May 2007 01:57:57 +0000
Subject: [PATCH] fix perl thinko
---
src/tools/msvc/Solution.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
index 8983978c72c..405f8d2d900 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";
--
GitLab