Perl: Remove useless lines

2 years ago · 952db4979f
parent 8421f6bce1
commit 952db4979f
2 changed files with 0 additions and 2 deletions
--- 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)
--- 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)
 			{