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

Commit a3412d9b authored by Tom Zanussi's avatar Tom Zanussi Committed by Arnaldo Carvalho de Melo
Browse files

perf/trace/scripting: workqueue-stats script cleanup 



Some minor fixes for the workqueue-stats script:

 - Fix nuisance 'use of uninitialized value' warnings

Cc: Frédéric Weisbecker <fweisbec@gmail.com>
Cc: Ingo Molnar <mingo@elte.hu>
LKML-Reference: <1273466820-9330-6-git-send-email-tzanussi@gmail.com>
Signed-off-by: default avatarTom Zanussi <tzanussi@gmail.com>
Signed-off-by: default avatarArnaldo Carvalho de Melo <acme@redhat.com>
parent e366728d

tools/perf/scripts/perl/workqueue-stats.pl

+6 −6
Original line number Diff line number Diff line
@@ -71,9 +71,9 @@ sub trace_end 
    printf("%3s %6s %6s\t%-20s\n", "---", "---", "----", "----");

    foreach my $pidhash (@cpus) {

	while ((my $pid, my $wqhash) = each %$pidhash) {

	    my $ins = $$wqhash{'inserted'};

	    my $exe = $$wqhash{'executed'};

	    my $comm = $$wqhash{'comm'};

	    my $ins = $$wqhash{'inserted'} || 0;

	    my $exe = $$wqhash{'executed'} || 0;

	    my $comm = $$wqhash{'comm'} || "";

	    if ($ins || $exe) {

		printf("%3u %6u %6u\t%-20s\n", $cpu, $ins, $exe, $comm);

	    }
@@ -87,9 +87,9 @@ sub trace_end 
    printf("%3s %6s %6s\t%-20s\n", "---", "-------", "---------", "----");

    foreach my $pidhash (@cpus) {

	while ((my $pid, my $wqhash) = each %$pidhash) {

	    my $created = $$wqhash{'created'};

	    my $destroyed = $$wqhash{'destroyed'};

	    my $comm = $$wqhash{'comm'};

	    my $created = $$wqhash{'created'} || 0;

	    my $destroyed = $$wqhash{'destroyed'} || 0;

	    my $comm = $$wqhash{'comm'} || "";

	    if ($created || $destroyed) {

		printf("%3u %6u %6u\t%-20s\n", $cpu, $created, $destroyed,

		       $comm);