Commitcf5f7e8

authored and

committed

Perl: Remove useless lines

1 parent05d8e2a commitcf5f7e8Copy full SHA for cf5f7e8

File tree

-2

lines changed

src
- bin/pgbench/t
  - 002_pgbench_no_server.pl
- test/perl/PostgreSQL/Test
  - Cluster.pm

-2

lines changed

Lines changed: 0 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,6 @@ sub pgbench_scripts`
`38`	`38`
`39`	`39`	`my ($opts,$stat,$out,$err,$name,$files) =@_;`
`40`	`40`	`my@cmd = ('pgbench',split /\s+/,$opts);`
`41`		`-my@filenames = ();`
`42`	`41`	`if (defined$files)`
`43`	`42`	`{`
`44`	`43`	`formy$fn (sortkeys%$files)`

Lines changed: 0 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -2140,7 +2140,6 @@ sub _pgbench_make_files`
`2140`	`2140`	`# cleanup file weight`
`2141`	`2141`	`$filename =~s/\@\d+$//;`
`2142`	`2142`
`2143`		`-#push @filenames, $filename;`
`2144`	`2143`	`# filenames are expected to be unique on a test`
`2145`	`2144`	`if (-e$filename)`
`2146`	`2145`	`{`

Comments

(0)