Commitabcba70

committed

Fix perlcritic warnings

1 parent0db2fc9 commitabcba70Copy full SHA for abcba70

File tree

-4

lines changed

-4

lines changed

Lines changed: 4 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -584,22 +584,22 @@ sub check_pgbench_logs`
`584`	`584`	`{`
`585`	`585`	`my ($prefix,$nb,$min,$max,$re) =@_;`
`586`	`586`
`587`		`-my@logs =<$prefix.*>;`
	`587`	`+my@logs =glob"$prefix.*";`
`588`	`588`	`ok(@logs ==$nb,"number of log files");`
`589`	`589`	`ok(grep(/^$prefix\.\d+(\.\d+)?$/,@logs) ==$nb,"file name format");`
`590`	`590`
`591`	`591`	`my$log_number = 0;`
`592`	`592`	`formy$log (sort@logs)`
`593`	`593`	`{`
`594`	`594`	`eval {`
`595`		`-openLOG,$logordie"$@";`
`596`		`-my@contents = <LOG>;`
	`595`	`+openmy$fh,'<',$logordie"$@";`
	`596`	`+my@contents = <$fh>;`
`597`	`597`	`my$clen =@contents;`
`598`	`598`	`ok($min <=$clen &&$clen <=$max,`
`599`	`599`	`"transaction count for$log ($clen)");`
`600`	`600`	`ok(grep($re,@contents) ==$clen,`
`601`	`601`	`"transaction format for$prefix");`
`602`		`-closeLOGordie"$@";`
	`602`	`+close$fhordie"$@";`
`603`	`603`	`};`
`604`	`604`	`}`
`605`	`605`	`ok(unlink(@logs),"remove log files");`

Comments

(0)