[perl/f22] Add systemtap probes for new DTrace markers

Lubomir Rintel lkundrak at fedoraproject.org
Fri Mar 20 11:30:47 UTC 2015


commit 1c66a9d90bc0c95504a1b634222ddd2f85246fc2
Author: Lubomir Rintel <lkundrak at v3.sk>
Date:   Thu Mar 19 19:07:02 2015 +0100

    Add systemtap probes for new DTrace markers

 perl.spec |  5 ++++-
 perl.stp  | 42 +++++++++++++++++++++++++++++++++++++-----
 2 files changed, 41 insertions(+), 6 deletions(-)
---
diff --git a/perl.spec b/perl.spec
index ef61a78..52540f0 100644
--- a/perl.spec
+++ b/perl.spec
@@ -30,7 +30,7 @@
 Name:           perl
 Version:        %{perl_version}
 # release number must be even higher, because dual-lived modules will be broken otherwise
-Release:        321%{?dist}
+Release:        322%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -3831,6 +3831,9 @@ sed \
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Thu Mar 19 2015 Lubomir Rintel <lkundrak at v3.sk> - 4:5.20.2-322
+- Add systemtap probes for new dtrace markers
+
 * Wed Feb 18 2015 Jitka Plesnikova <jplesnik at redhat.com> - 4:5.20.2-321
 - Provide 5.20.2 MODULE_COMPAT
 - Clean list of provided files
diff --git a/perl.stp b/perl.stp
index ccc203b..dbc51a8 100644
--- a/perl.stp
+++ b/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)
 }


More information about the perl-devel mailing list