Perl: Remove useless lines

alvherre · alvherre · commit 952db4979f9f · 2023-08-29T18:25:09.000+02:00
diff --git a/src/bin/pgbench/t/002_pgbench_no_server.pl b/src/bin/pgbench/t/002_pgbench_no_server.pl
@@ -38,7 +38,6 @@ sub pgbench_scripts
 
 	my ($opts, $stat, $out, $err, $name, $files) = @_;
 	my @cmd = ('pgbench', split /\s+/, $opts);
-	my @filenames = ();
 	if (defined $files)
 	{
 		for my $fn (sort keys %$files)
diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm
@@ -2140,7 +2140,6 @@ sub _pgbench_make_files
 			# cleanup file weight
 			$filename =~ s/\@\d+$//;
 
-			#push @filenames, $filename;
 			# filenames are expected to be unique on a test
 			if (-e $filename)
 			{

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,6 @@ sub pgbench_scripts`
`38`	`38`
`39`	`39`	`my ($opts, $stat, $out, $err, $name, $files) = @_;`
`40`	`40`	`my @cmd = ('pgbench', split /\s+/, $opts);`
`41`		`- my @filenames = ();`
`42`	`41`	`if (defined $files)`
`43`	`42`	`{`
`44`	`43`	`for my $fn (sort keys %$files)`
Original file line number	Diff line number	Diff line change
`@@ -2140,7 +2140,6 @@ sub _pgbench_make_files`
`2140`	`2140`	`# cleanup file weight`
`2141`	`2141`	`$filename =~ s/\@\d+$//;`
`2142`	`2142`
`2143`		`- #push @filenames, $filename;`
`2144`	`2143`	`# filenames are expected to be unique on a test`
`2145`	`2144`	`if (-e $filename)`
`2146`	`2145`	`{`