sharpetronics/PostgreSQL
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-10 00:01:28 -04:00
Code Issues Projects Releases Wiki Activity

Fix perlcritic warnings

Browse Source
This commit is contained in:
Peter Eisentraut 2018-02-22 15:13:57 -05:00
parent 0db2fc98cd
commit abcba7001e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/bin/pgbench/t/001_pgbench_with_server.pl
View File

@ -584,7 +584,7 @@ sub check_pgbench_logs
{ {
my ($prefix, $nb, $min, $max, $re) = @_; my ($prefix, $nb, $min, $max, $re) = @_;
my @logs = <$prefix.*>; my @logs = glob "$prefix.*";
ok(@logs == $nb, "number of log files"); ok(@logs == $nb, "number of log files");
ok(grep(/^$prefix\.\d+(\.\d+)?$/, @logs) == $nb, "file name format"); ok(grep(/^$prefix\.\d+(\.\d+)?$/, @logs) == $nb, "file name format");
@ -592,14 +592,14 @@ sub check_pgbench_logs
for my $log (sort @logs) for my $log (sort @logs)
{ {
eval { eval {
open LOG, $log or die "$@"; open my $fh, '<', $log or die "$@";
my @contents = <LOG>; my @contents = <$fh>;
my $clen = @contents; my $clen = @contents;
ok( $min <= $clen && $clen <= $max, ok( $min <= $clen && $clen <= $max,
"transaction count for $log ($clen)"); "transaction count for $log ($clen)");
ok( grep($re, @contents) == $clen, ok( grep($re, @contents) == $clen,
"transaction format for $prefix"); "transaction format for $prefix");
close LOG or die "$@"; close $fh or die "$@";
}; };
} }
ok(unlink(@logs), "remove log files"); ok(unlink(@logs), "remove log files");