diff options
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/trace.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/scripts/trace.pl b/scripts/trace.pl index 509df6c0..d49d25d6 100755 --- a/scripts/trace.pl +++ b/scripts/trace.pl @@ -545,17 +545,6 @@ sub sortStart { return $val; } -sub sortQueue { - my $as = $db{$a}->{'queue'}; - my $bs = $db{$b}->{'queue'}; - my $val; - - $val = $as <=> $bs; - $val = $a cmp $b if $val == 0; - - return $val; -} - my @sorted_keys = sort sortStart keys %db; my $re_sort = 0; @@ -859,6 +848,17 @@ print <<ENDHTML; var items = new vis.DataSet([ ENDHTML +sub sortQueue { + my $as = $db{$a}->{'queue'}; + my $bs = $db{$b}->{'queue'}; + my $val; + + $val = $as <=> $bs; + $val = $a cmp $b if $val == 0; + + return $val; +} + my $i = 0; foreach my $key (sort sortQueue keys %db) { my ($name, $ctx, $seqno) = ($db{$key}->{'name'}, $db{$key}->{'ctx'}, $db{$key}->{'seqno'}); |