Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 2a813f8c authored by Alan Jenkins's avatar Alan Jenkins Committed by Ingo Molnar
Browse files

tracing/fastboot: fix bootgraph.pl to run with "use strict" 



As a perl novice, I would prefer to have the benefit of the interpreters'
wisdom.  It turns out there were already some warnings, so let's fix them.

Signed-off-by: default avatarAlan Jenkins <alan-jenkins@tuffmail.co.uk>
Acked-by: default avatarFrédéric Weisbecker <fweisbec@gmail.com>
Signed-off-by: default avatarIngo Molnar <mingo@elte.hu>
parent 17d80fd0

scripts/bootgraph.pl

+10 −5
Original line number Diff line number Diff line
@@ -37,7 +37,10 @@ 
# 	dmesg | perl scripts/bootgraph.pl > output.svg

#



my %start, %end;

use strict;



my %start;

my %end;

my $done = 0;

my $maxtime = 0;

my $firsttime = 100;
@@ -105,12 +108,14 @@ my $threshold = ($maxtime - $firsttime) / 60.0; 
my $stylecounter = 0;

my %rows;

my $rowscount = 1;

my $key;

my $value;

while (($key,$value) = each %start) {

	my $duration = $end{$key} - $start{$key};



	if ($duration >= $threshold) {

		my $s, $s2, $e, $y;

		$pid = $pids{$key};

		my ($s, $s2, $e, $w, $y, $y2, $style);

		my $pid = $pids{$key};



		if (!defined($rows{$pid})) {

			$rows{$pid} = $rowscount;
@@ -140,9 +145,9 @@ while (($key,$value) = each %start) { 
my $time = $firsttime;

my $step = ($maxtime - $firsttime) / 15;

while ($time < $maxtime) {

	my $s2 = ($time - $firsttime) * $mult;

	my $s3 = ($time - $firsttime) * $mult;

	my $tm = int($time * 100) / 100.0;

	print "<text transform=\"translate($s2,89) rotate(90)\">$tm</text>\n";

	print "<text transform=\"translate($s3,89) rotate(90)\">$tm</text>\n";

	$time = $time + $step;

}