[perl5.git] / perldtrace.d

/*
 * Written by Alan Burlinson -- taken from his blog post
 * at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>.
 */

provider perl {
    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 *);
};

/*
 * Local Variables:
 * tab-width: 4
 * indent-tabs-mode: nil
 * End:
 *
 * ex: set ts=8 sts=4 sw=4 noet:
 */
Commit	Line	Data
5ac1e9b2 AA	1	/*
5ac1e9b2 AA	2	* Written by Alan Burlinson -- taken from his blog post
344c1cf2	3	* at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>.
5ac1e9b2 AA	4	*/
	5
	6	provider perl {
12b81ca5 TC	7	probe sub__entry(const char , const char , int, const char *);
12b81ca5 TC	8	probe sub__return(const char , const char , int, const char *);
cb3f8189 SM	9
cb3f8189 SM	10	probe phase__change(const char , const char );
5ac1e9b2	11	};
6b5ec6e4 JJ	12
	13	/*
	14	* Local Variables:
	15	* tab-width: 4
	16	* indent-tabs-mode: nil
	17	* End:
	18	*
	19	* ex: set ts=8 sts=4 sw=4 noet:
	20	*/