perf/trace/scripting: workqueue-stats script cleanup
Tom Zanussi [Mon, 10 May 2010 04:46:56 +0000 (23:46 -0500)]
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: Tom Zanussi <tzanussi@gmail.com>
Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>

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

index 511302c..b84b126 100644 (file)
@@ -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);