aboutsummaryrefslogtreecommitdiff
path: root/scripts/bootgraph.pl
diff options
context:
space:
mode:
authorStephen Hemminger <shemminger@vyatta.com>2008-11-12 10:21:01 -0800
committerIngo Molnar <mingo@elte.hu>2008-11-12 19:22:57 +0100
commit68f96c0c889b55bf62eee98e859cb686f8850188 (patch)
tree4ddc529b4eac68361b5f2066843b68337a189a83 /scripts/bootgraph.pl
parentcb9382e5a94e54d0356d730954396c746ae66d6e (diff)
downloadvexpress-lsk-68f96c0c889b55bf62eee98e859cb686f8850188.tar.gz
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>
Diffstat (limited to 'scripts/bootgraph.pl')
-rw-r--r--scripts/bootgraph.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/bootgraph.pl b/scripts/bootgraph.pl
index d2c61efc216..a8635a10fef 100644
--- a/scripts/bootgraph.pl
+++ b/scripts/bootgraph.pl
@@ -109,8 +109,8 @@ my $stylecounter = 0;
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) {