mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Perl: Remove useless lines

Browse Source
This commit is contained in:
Alvaro Herrera 2023-08-29 18:25:09 +02:00
parent 8421f6bce1
commit 952db4979f
No known key found for this signature in database
GPG Key ID: 1C20ACB9D5C564AE
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/bin/pgbench/t/002_pgbench_no_server.pl
View File

@ -38,7 +38,6 @@ sub pgbench_scripts
my ($opts, $stat, $out, $err, $name, $files) = @_; my ($opts, $stat, $out, $err, $name, $files) = @_;
my @cmd = ('pgbench', split /\s+/, $opts); my @cmd = ('pgbench', split /\s+/, $opts);
my @filenames = ();
if (defined $files) if (defined $files)
{ {
for my $fn (sort keys %$files) for my $fn (sort keys %$files)

1
src/test/perl/PostgreSQL/Test/Cluster.pm
View File

@ -2140,7 +2140,6 @@ sub _pgbench_make_files
# cleanup file weight # cleanup file weight
$filename =~ s/\@\d+$//; $filename =~ s/\@\d+$//;
#push @filenames, $filename;
# filenames are expected to be unique on a test # filenames are expected to be unique on a test
if (-e $filename) if (-e $filename)
{ {