diff options
| author | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2023-08-29 18:25:09 +0200 |
|---|---|---|
| committer | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2023-08-29 18:25:09 +0200 |
| commit | 952db4979f9fea3fb4fd1eb07b310c85fdc2a8b9 (patch) | |
| tree | 295663e40d6f85ca0b6d1efa784ee1de5fe98e73 /src | |
| parent | 8421f6bce16cd1d58106f47e48762319e7d22ab0 (diff) | |
| download | postgresql-952db4979f9fea3fb4fd1eb07b310c85fdc2a8b9.tar.gz postgresql-952db4979f9fea3fb4fd1eb07b310c85fdc2a8b9.zip | |
Perl: Remove useless lines
Diffstat (limited to 'src')
| -rw-r--r-- | src/bin/pgbench/t/002_pgbench_no_server.pl | 1 | ||||
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Cluster.pm | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/src/bin/pgbench/t/002_pgbench_no_server.pl b/src/bin/pgbench/t/002_pgbench_no_server.pl index 0ec54fbb033..ffc8c772aed 100644 --- 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 index 227c34ab4db..2a478ba6ed7 100644 --- 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) { |