Fix fixed ports in run.pl.

arssher · arssher · commit d5d125493515 · 2021-04-09T16:50:39.000+03:00
diff --git a/Cluster.pm b/Cluster.pm
@@ -32,7 +32,7 @@ sub mm_get_free_port
 	{
 
 		# advance $port, wrapping correctly around range end
-		$port = 26000 if ++$port >= 27000;
+		$port = 26000 if ++$port == 27000;
 		print "# Checking port $port\n";
 
 		# Check first that candidate port number is not included in
diff --git a/run.pl b/run.pl
@@ -19,7 +19,7 @@
 
 if ($action eq "start")
 {
-	$PostgresNode::last_port_assigned = 65431;
+	$Cluster::last_port_assigned = 65431;
 
 	my $cluster = new Cluster($n_nodes, $referee);
 	$cluster->init();

Original file line number	Diff line number	Diff line change
`@@ -32,7 +32,7 @@ sub mm_get_free_port`
`32`	`32`	`{`
`33`	`33`
`34`	`34`	`# advance $port, wrapping correctly around range end`
`35`		`- $port = 26000 if ++$port >= 27000;`
	`35`	`+ $port = 26000 if ++$port == 27000;`
`36`	`36`	`8FF4 print "# Checking port $port\n";`
`37`	`37`
`38`	`38`	`# Check first that candidate port number is not included in`
Original file line number	Diff line number	Diff line change
`@@ -19,7 +19,7 @@`
`19`	`19`
`20`	`20`	`if ($action eq "start")`
`21`	`21`	`{`
`22`		`- $PostgresNode::last_port_assigned = 65431;`
	`22`	`+ $Cluster::last_port_assigned = 65431;`
`23`	`23`
`24`	`24`	`my $cluster = new Cluster($n_nodes, $referee);`
`25`	`25`	`$cluster->init();`