You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
576 B
22 lines
576 B
7 years ago
|
/*
|
||
|
|
Example of the perl systemtap tapset shows a nested view of perl subroutine
|
||
|
|
calls and returns across the whole system.
|
||
|
|
|
||
|
|
To run:
|
||
|
|
stap perl-example.stp (for all perl processes)
|
||
|
|
For specific perl process:
|
||
|
|
stap perl-example.stp -c COMMAND
|
||
|
|
*/
|
||
|
|
|
||
|
|
probe perl.sub.call
|
||
|
|
{
|
||
|
|
printf("%s => sub: %s, filename: %s, line: %d, package: %s\n",
|
||
|
|
thread_indent(1), sub, filename, lineno, package)
|
||
|
|
}
|
||
|
|
|
||
|
|
probe perl.sub.return
|
||
|
|
{
|
||
|
|
printf("%s <= sub: %s, filename: %s, line: %d, package: %s\n",
|
||
|
|
thread_indent(-1), sub, filename, lineno, package)
|
||
|
|
}
|