Perl: Remove useless lines

diff --git a/src/bin/pgbench/t/002_pgbench_no_server.pl b/src/bin/pgbench/t/002_pgbench_no_server.pl
index 0ec54fbb0330483548ca717296d24c45f170bbc3..ffc8c772aed19624eaf39f4966c7e108e502d91d 100644 (file)
--- 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 227c34ab4dbabbc29498b4a68277bb2bf3146ef3..2a478ba6ed7ec0f0138f481d6f7c5c861e6700d4 100644 (file)
--- 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)
                        {