failed-syscalls.pl (2d8ad8719591fa803b0d589ed057fa46f49b7155) failed-syscalls.pl (07100877ea8fd9b2feabb4dd78f3322892f6bd77)
1# failed system call counts
2# (c) 2010, Tom Zanussi <tzanussi@gmail.com>
3# Licensed under the terms of the GNU GPL License version 2
4#
5# Displays system-wide failed system call totals
6# If a [comm] arg is specified, only syscalls called by [comm] are displayed.
7
8use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";

--- 12 unchanged lines hidden (view full) ---

21 $common_pid, $common_comm,
22 $id, $ret) = @_;
23
24 if ($ret < 0) {
25 $failed_syscalls{$common_comm}++;
26 }
27}
28
1# failed system call counts
2# (c) 2010, Tom Zanussi <tzanussi@gmail.com>
3# Licensed under the terms of the GNU GPL License version 2
4#
5# Displays system-wide failed system call totals
6# If a [comm] arg is specified, only syscalls called by [comm] are displayed.
7
8use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";

--- 12 unchanged lines hidden (view full) ---

21 $common_pid, $common_comm,
22 $id, $ret) = @_;
23
24 if ($ret < 0) {
25 $failed_syscalls{$common_comm}++;
26 }
27}
28
29sub syscalls::sys_exit
30{
31 raw_syscalls::sys_exit(@_)
32}
33
29sub trace_end
30{
31 printf("\nfailed syscalls by comm:\n\n");
32
33 printf("%-20s %10s\n", "comm", "# errors");
34 printf("%-20s %6s %10s\n", "--------------------", "----------");
35
36 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
37 keys %failed_syscalls) {
38 next if ($for_comm && $comm ne $for_comm);
39
40 printf("%-20s %10s\n", $comm, $failed_syscalls{$comm});
41 }
42}
34sub trace_end
35{
36 printf("\nfailed syscalls by comm:\n\n");
37
38 printf("%-20s %10s\n", "comm", "# errors");
39 printf("%-20s %6s %10s\n", "--------------------", "----------");
40
41 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
42 keys %failed_syscalls) {
43 next if ($for_comm && $comm ne $for_comm);
44
45 printf("%-20s %10s\n", $comm, $failed_syscalls{$comm});
46 }
47}