diff --git a/src/test/regress/pg_regress_multi.pl b/src/test/regress/pg_regress_multi.pl
index 170f32225..a38e810b6 100755
--- a/src/test/regress/pg_regress_multi.pl
+++ b/src/test/regress/pg_regress_multi.pl
@@ -47,6 +47,8 @@ my %fdwServers = ();
 my %functions = ();
 my %operators = ();
 
+my $serversAreShutdown = "TRUE";
+
 GetOptions(
     'bindir=s' => \$bindir,
     'libdir=s' => \$libdir,
@@ -170,7 +172,6 @@ for my $port (@workerPorts)
 }
 
 # Routine to shutdown servers at failure/exit
-my $serversAreShutdown = "FALSE";
 sub ShutdownServers()
 {
     if ($serversAreShutdown eq "FALSE")
@@ -204,6 +205,9 @@ END
     }
 }
 
+# Signal that servers should be shutdown
+$serversAreShutdown = "FALSE";
+
 # Start servers
 system("$bindir/pg_ctl",
        ('start', '-w',