perf/trace/scripting: failed-syscalls script cleanup
A couple small fixes for the failed syscalls script: - The script description says it can be restricted to a specific comm, make it so. - silence the match output in the shell script Cc: Frédéric Weisbecker <fweisbec@gmail.com> Cc: Ingo Molnar <mingo@elte.hu> LKML-Reference: <1273466820-9330-2-git-send-email-tzanussi@gmail.com> Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>
This commit is contained in:
parent
fefb0b94bb
commit
c3f5fd287a
|
@ -2,7 +2,7 @@
|
|||
# description: system-wide failed syscalls
|
||||
# args: [comm]
|
||||
if [ $# -gt 0 ] ; then
|
||||
if ! expr match "$1" "-" ; then
|
||||
if ! expr match "$1" "-" > /dev/null ; then
|
||||
comm=$1
|
||||
shift
|
||||
fi
|
||||
|
|
|
@ -11,6 +11,8 @@ use Perf::Trace::Core;
|
|||
use Perf::Trace::Context;
|
||||
use Perf::Trace::Util;
|
||||
|
||||
my $for_comm = shift;
|
||||
|
||||
my %failed_syscalls;
|
||||
|
||||
sub raw_syscalls::sys_exit
|
||||
|
@ -33,6 +35,8 @@ sub trace_end
|
|||
|
||||
foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
|
||||
keys %failed_syscalls) {
|
||||
printf("%-20s %10s\n", $comm, $failed_syscalls{$comm});
|
||||
next if ($for_comm && $comm ne $for_comm);
|
||||
|
||||
printf("%-20s %10s\n", $comm, $failed_syscalls{$comm});
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue