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 <[email protected]> Signed-off-by: Ingo Molnar <[email protected]>
adn770 · Nov 12, 2008 · 68f96c0 · 68f96c0
1 parent cb9382e
commit 68f96c0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scripts/bootgraph.pl b/scripts/bootgraph.pl
@@ -109,8 +109,8 @@
 my %rows;
 my $rowscount = 1;
 my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start);
-my $key;
-foreach $key (@initcalls) {
+
+foreach my $key (@initcalls) {
 	my $duration = $end{$key} - $start{$key};
 
 	if ($duration >= $threshold) {