tracing/fastboot: fix perlcritic warning
Impact: cleanup Fix the following warning from the perl syntax checking tool perlcritic. This tool is a lint like tool that checks for perl best practices. Loop iterator is not lexical at line 113, column 1. See page 108 of PBP. (Severity: 5) Signed-off-by: Stephen Hemminger <shemminger@vyatta.com> Signed-off-by: Ingo Molnar <mingo@elte.hu>hifive-unleashed-5.1
parent
cb9382e5a9
commit
68f96c0c88
|
@ -109,8 +109,8 @@ my $stylecounter = 0;
|
||||||
my %rows;
|
my %rows;
|
||||||
my $rowscount = 1;
|
my $rowscount = 1;
|
||||||
my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start);
|
my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start);
|
||||||
my $key;
|
|
||||||
foreach $key (@initcalls) {
|
foreach my $key (@initcalls) {
|
||||||
my $duration = $end{$key} - $start{$key};
|
my $duration = $end{$key} - $start{$key};
|
||||||
|
|
||||||
if ($duration >= $threshold) {
|
if ($duration >= $threshold) {
|
||||||
|
|
Loading…
Reference in New Issue