Log Message:
-----------
This patch makes build_env.pl use the database ports passed in on the
commandline. 

Provided by:
Andrew Ruthven, Wellington, New Zealand
Senior Developer, Catalyst IT Limited

Modified Files:
--------------
    slony1-engine/tools/altperl:
        build_env.pl (r1.4 -> r1.5)

-------------- next part --------------
Index: build_env.pl
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/build_env.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -Ltools/altperl/build_env.pl -Ltools/altperl/build_env.pl -u -w -r1.4 -r1.5
--- tools/altperl/build_env.pl
+++ tools/altperl/build_env.pl
@@ -49,7 +49,7 @@
   $nodeNumber++;
 
 }
-my $connectString = "dbi:Pg:dbname=$dataBase;host=$host";
+my $connectString = "dbi:Pg:dbname=$dataBase;host=$host;port=$dataBasePort";
 my $dbh = DBI->connect($connectString,$dataBaseUser,$dataBasePassword,
 		       {RaiseError => 0, PrintError => 0, AutoCommit => 1});
 die "connect: $DBI::errstr" if ( !defined($dbh) || $DBI::err );