102
102
sub installcheck
103
103
{
104
104
my $schedule = shift || ' serial' ;
105
- installcheck_internal $schedule ;
106
- return ;
107
- }
108
-
109
- sub installcheck_internal
110
- {
111
- my ($schedule , @EXTRA_REGRESS_OPTS ) = @_ ;
112
105
my @args = (
113
106
" ../../../$Config /pg_regress/pg_regress" ,
114
107
" --dlpath=." ,
@@ -118,7 +111,6 @@ sub installcheck_internal
118
111
" --encoding=SQL_ASCII" ,
119
112
" --no-locale" );
120
113
push (@args , $maxconn ) if $maxconn ;
121
- push (@args , @EXTRA_REGRESS_OPTS );
122
114
system (@args );
123
115
my $status = $? >> 8;
124
116
exit $status if $status ;
@@ -566,14 +558,6 @@ sub upgradecheck
566
558
$ENV {PATH } = " $bindir ;$ENV {PATH}" ;
567
559
my $data = " $tmp_root /data" ;
568
560
$ENV {PGDATA } = " $data .old" ;
569
- my $outputdir = " $tmp_root /regress" ;
570
- my @EXTRA_REGRESS_OPTS = (" --outputdir=$outputdir " );
571
- rmtree(" $outputdir " );
572
- mkdir " $outputdir " || die $! ;
573
- mkdir " $outputdir /sql" || die $! ;
574
- mkdir " $outputdir /expected" || die $! ;
575
- mkdir " $outputdir /testtablespace" || die $! ;
576
-
577
561
my $logdir = " $topdir /src/bin/pg_upgrade/log" ;
578
562
(mkdir $logdir || die $! ) unless -d $logdir ;
579
563
print " \n Running initdb on old cluster\n\n " ;
@@ -588,7 +572,7 @@ sub upgradecheck
588
572
generate_db(' ' , 91, 127, ' ' );
589
573
590
574
print " \n Setting up data for upgrading\n\n " ;
591
- installcheck_internal (' parallel' , @EXTRA_REGRESS_OPTS );
575
+ installcheck (' parallel' );
592
576
593
577
# now we can chdir into the source dir
594
578
chdir " $topdir /src/bin/pg_upgrade" ;
0 commit comments