/*
* Written by Alan Burlinson -- taken from his blog post
- * at <http://blogs.sun.com/alanbur/date/20050909>.
+ * at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>.
*/
provider perl {
- probe sub__entry(char *, char *, int);
- probe sub__return(char *, char *, int);
+ probe sub__entry(const char *, const char *, int, const char *);
+ probe sub__return(const char *, const char *, int, const char *);
+
+ probe phase__change(const char *, const char *);
+
+ probe op__entry(const char *);
+
+ probe loading__file(const char *);
+ probe loaded__file(const char *);
};
+
+/*
+ * Local Variables:
+ * tab-width: 4
+ * indent-tabs-mode: nil
+ * End:
+ *
+ * ex: set ts=8 sts=4 sw=4 et:
+ */