Add systemtap probes for new DTrace markers
This commit is contained in:
parent
c3a2e91651
commit
6f6f8fdb06
@ -30,7 +30,7 @@
|
||||
Name: perl
|
||||
Version: %{perl_version}
|
||||
# release number must be even higher, because dual-lived modules will be broken otherwise
|
||||
Release: 323%{?dist}
|
||||
Release: 324%{?dist}
|
||||
Epoch: %{perl_epoch}
|
||||
Summary: Practical Extraction and Report Language
|
||||
Group: Development/Languages
|
||||
@ -3841,6 +3841,9 @@ sed \
|
||||
|
||||
# Old changelog entries are preserved in CVS.
|
||||
%changelog
|
||||
* Thu Mar 19 2015 Lubomir Rintel <lkundrak@v3.sk> - 4:5.20.2-324
|
||||
- Add systemtap probes for new dtrace markers
|
||||
|
||||
* Mon Mar 16 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.2-323
|
||||
- Move perl(:MODULE_COMPAT_*) symbol and include directories to perl-libs
|
||||
package (bug #1174951)
|
||||
|
42
perl.stp
42
perl.stp
@ -12,9 +12,9 @@ probe perl.sub.call = process("LIBRARY_PATH").mark("sub__entry")
|
||||
|
||||
}
|
||||
|
||||
/*
|
||||
This probe will fire when the return from a subroutine has been
|
||||
hit.
|
||||
/*
|
||||
This probe will fire when the return from a subroutine has been
|
||||
hit.
|
||||
*/
|
||||
|
||||
probe perl.sub.return = process("LIBRARY_PATH").mark("sub__return")
|
||||
@ -27,7 +27,7 @@ probe perl.sub.return = process("LIBRARY_PATH").mark("sub__return")
|
||||
|
||||
}
|
||||
|
||||
/*
|
||||
/*
|
||||
This probe will fire when the Perl interperter changes state.
|
||||
*/
|
||||
|
||||
@ -35,5 +35,37 @@ 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)
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user