|
1 | 1 |
|
2 | 2 | # -*-perl-*- hey - emacs - this is a perl file |
3 | 3 |
|
4 | | -# $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.9 2008/11/28 23:47:51 tgl Exp $ |
| 4 | +# $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.10 2008/12/01 13:39:45 tgl Exp $ |
5 | 5 |
|
6 | 6 | use strict; |
7 | 7 |
|
|
49 | 49 | $schedule ="parallel"if ($whateq'CHECK' ||$what =~/PARALLEL/); |
50 | 50 | } |
51 | 51 |
|
52 | | -my$temp_port; |
53 | | -if (-e"src/tools/msvc/config.pl") |
54 | | -{ |
55 | | -eval{ |
56 | | -require"src/tools/msvc/config.pl"; |
57 | | -$temp_port =$config->{'--with-pgport'}; |
58 | | - } |
59 | | -} |
60 | | -$temp_port ||= 55432; |
61 | | - |
62 | 52 | my$topdir = getcwd(); |
63 | 53 |
|
64 | 54 | $ENV{PERL5LIB} ="$topdir/src/tools/msvc"; |
@@ -146,8 +136,7 @@ sub ecpgcheck |
146 | 136 | "--load-language=plpgsql", |
147 | 137 | "--no-locale", |
148 | 138 | "--temp-install=./tmp_chk", |
149 | | -"--top-builddir=\"$topdir\"", |
150 | | -"--port=$temp_port" |
| 139 | +"--top-builddir=\"$topdir\"" |
151 | 140 | ); |
152 | 141 | push(@args,$maxconn)if$maxconn; |
153 | 142 | system(@args); |
|