diff options
Diffstat (limited to 'scripts/bootgraph.pl')
| -rw-r--r-- | scripts/bootgraph.pl | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/scripts/bootgraph.pl b/scripts/bootgraph.pl index d2c61efc216f..f0af9aa9b243 100644 --- a/scripts/bootgraph.pl +++ b/scripts/bootgraph.pl | |||
| @@ -78,11 +78,13 @@ while (<>) { | |||
| 78 | } | 78 | } |
| 79 | 79 | ||
| 80 | if ($count == 0) { | 80 | if ($count == 0) { |
| 81 | print "No data found in the dmesg. Make sure that 'printk.time=1' and\n"; | 81 | print STDERR <<END; |
| 82 | print "'initcall_debug' are passed on the kernel command line.\n\n"; | 82 | No data found in the dmesg. Make sure that 'printk.time=1' and |
| 83 | print "Usage: \n"; | 83 | 'initcall_debug' are passed on the kernel command line. |
| 84 | print " dmesg | perl scripts/bootgraph.pl > output.svg\n\n"; | 84 | Usage: |
| 85 | exit; | 85 | dmesg | perl scripts/bootgraph.pl > output.svg |
| 86 | END | ||
| 87 | exit 1; | ||
| 86 | } | 88 | } |
| 87 | 89 | ||
| 88 | print "<?xml version=\"1.0\" standalone=\"no\"?> \n"; | 90 | print "<?xml version=\"1.0\" standalone=\"no\"?> \n"; |
| @@ -109,8 +111,8 @@ my $stylecounter = 0; | |||
| 109 | my %rows; | 111 | my %rows; |
| 110 | my $rowscount = 1; | 112 | my $rowscount = 1; |
| 111 | my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start); | 113 | my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start); |
| 112 | my $key; | 114 | |
| 113 | foreach $key (@initcalls) { | 115 | foreach my $key (@initcalls) { |
| 114 | my $duration = $end{$key} - $start{$key}; | 116 | my $duration = $end{$key} - $start{$key}; |
| 115 | 117 | ||
| 116 | if ($duration >= $threshold) { | 118 | if ($duration >= $threshold) { |