fix perl thinko

adunstan · adunstan · commit ea7f18d15b28 · 2007-05-15T01:57:57.000Z
diff --git 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";

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ package Solution;`
`3`	`3`	`#`
`4`	`4`	`# Package that encapsulates a Visual C++ solution file generation`
`5`	`5`	`#`
`6`		`-# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.24 2007/05/15 00:15:01 adunstan Exp $`
	`6`	`+# $PostgreSQL: pgsql/src/tools/msvc/Solution.pm,v 1.25 2007/05/15 01:57:57 adunstan Exp $`
`7`	`7`	`#`
`8`	`8`	`use Carp;`
`9`	`9`	`use strict;`
`@@ -125,7 +125,7 @@ s{PG_VERSION_STR "[^"]+"}{__STRINGIFY(x) #x\n#define __STRINGIFY2(z) __STRINGIFY`
`125`	`125`	`print O "#define HAVE_KRB5_TICKET_ENC_PART2 1\n";`
`126`	`126`	`print O "#define PG_KRB_SRVNAM \"postgres\"\n";`
`127`	`127`	`}`
`128`		`- if (my $port = $self->{options}->{--with-pgport})`
	`128`	`+ if (my $port = $self->{options}->{"--with-pgport"})`
`129`	`129`	`{`
`130`	`130`	`print O "#define DEF_PGPORT $port\n";`
`131`	`131`	`print O "#define DEF_PGPORT_STR \"$port\"\n";`