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)
            {