Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Appearance settings

Commit 952db49

Browse filesBrowse files
committed
Perl: Remove useless lines
1 parent 8421f6b commit 952db49
Copy full SHA for 952db49

File tree

Expand file treeCollapse file tree

2 files changed

+0
-2
lines changed
Filter options
Expand file treeCollapse file tree

2 files changed

+0
-2
lines changed

‎src/bin/pgbench/t/002_pgbench_no_server.pl

Copy file name to clipboardExpand all lines: src/bin/pgbench/t/002_pgbench_no_server.pl
-1Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,6 @@ sub pgbench_scripts
3838

3939
my ($opts, $stat, $out, $err, $name, $files) = @_;
4040
my @cmd = ('pgbench', split /\s+/, $opts);
41-
my @filenames = ();
4241
if (defined $files)
4342
{
4443
for my $fn (sort keys %$files)

‎src/test/perl/PostgreSQL/Test/Cluster.pm

Copy file name to clipboardExpand all lines: src/test/perl/PostgreSQL/Test/Cluster.pm
-1Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2140,7 +2140,6 @@ sub _pgbench_make_files
21402140
# cleanup file weight
21412141
$filename =~ s/\@\d+$//;
21422142

2143-
#push @filenames, $filename;
21442143
# filenames are expected to be unique on a test
21452144
if (-e $filename)
21462145
{

0 commit comments

Comments
0 (0)
Morty Proxy This is a proxified and sanitized view of the page, visit original site.