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.
39 lines
739 B
39 lines
739 B
/* |
|
This probe will fire when the perl script enters a subroutine. |
|
*/ |
|
|
|
probe perl.sub.call = process("LIBRARY_PATH").mark("sub__entry") |
|
{ |
|
|
|
sub = user_string($arg1) |
|
filename = user_string($arg2) |
|
lineno = $arg3 |
|
package = user_string($arg4) |
|
|
|
} |
|
|
|
/* |
|
This probe will fire when the return from a subroutine has been |
|
hit. |
|
*/ |
|
|
|
probe perl.sub.return = process("LIBRARY_PATH").mark("sub__return") |
|
{ |
|
|
|
sub = user_string($arg1) |
|
filename = user_string($arg2) |
|
lineno = $arg3 |
|
package = user_string($arg4) |
|
|
|
} |
|
|
|
/* |
|
This probe will fire when the Perl interperter changes state. |
|
*/ |
|
|
|
probe perl.phase.change = process("LIBRARY_PATH").mark("phase__change") |
|
{ |
|
newphase = user_string($arg1) |
|
oldphase = user_string($arg2) |
|
|
|
}
|
|
|