diff options
Diffstat (limited to 'scripts/bootgraph.pl')
-rw-r--r-- | scripts/bootgraph.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/bootgraph.pl b/scripts/bootgraph.pl index ea2b079af9fd..d2c61efc216f 100644 --- a/scripts/bootgraph.pl +++ b/scripts/bootgraph.pl | |||
@@ -108,9 +108,9 @@ my $threshold = ($maxtime - $firsttime) / 60.0; | |||
108 | my $stylecounter = 0; | 108 | my $stylecounter = 0; |
109 | my %rows; | 109 | my %rows; |
110 | my $rowscount = 1; | 110 | my $rowscount = 1; |
111 | my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start); | ||
111 | my $key; | 112 | my $key; |
112 | my $value; | 113 | foreach $key (@initcalls) { |
113 | while (($key,$value) = each %start) { | ||
114 | my $duration = $end{$key} - $start{$key}; | 114 | my $duration = $end{$key} - $start{$key}; |
115 | 115 | ||
116 | if ($duration >= $threshold) { | 116 | if ($duration >= $threshold) { |
@@ -121,7 +121,7 @@ while (($key,$value) = each %start) { | |||
121 | $rows{$pid} = $rowscount; | 121 | $rows{$pid} = $rowscount; |
122 | $rowscount = $rowscount + 1; | 122 | $rowscount = $rowscount + 1; |
123 | } | 123 | } |
124 | $s = ($value - $firsttime) * $mult; | 124 | $s = ($start{$key} - $firsttime) * $mult; |
125 | $s2 = $s + 6; | 125 | $s2 = $s + 6; |
126 | $e = ($end{$key} - $firsttime) * $mult; | 126 | $e = ($end{$key} - $firsttime) * $mult; |
127 | $w = $e - $s; | 127 | $w = $e - $s; |