Add systemtap probes for new DTrace markers

This commit is contained in:
Lubomir Rintel 2015-03-19 19:07:02 +01:00
parent c3a2e91651
commit 6f6f8fdb06
2 changed files with 41 additions and 6 deletions

View File

@ -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)

View File

@ -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)
}