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.
72 lines
1.2 KiB
72 lines
1.2 KiB
5 years ago
|
/*
|
||
|
|
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)
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
Fires when Perl has successfully loaded an individual file.
|
||
|
|
*/
|
||
|
|
|
||
|
|
probe perl.loaded.file = process("LIBRARY_PATH").mark("loaded__file")
|
||
|
|
{
|
||
|
|
filename = user_string($arg1)
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
Fires when Perl is about to load an individual file.
|
||
|
|
*/
|
||
|
|
|
||
|
|
probe perl.loading.file = process("LIBRARY_PATH").mark("loading__file")
|
||
|
|
{
|
||
|
|
filename = user_string($arg1)
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
Traces the execution of each opcode in the Perl runloop.
|
||
|
|
*/
|
||
|
|
|
||
|
|
probe perl.op.entry = process("LIBRARY_PATH").mark("op__entry")
|
||
|
|
{
|
||
|
|
opname = user_string($arg1)
|
||
|
|
}
|