[perl5.git] / perldtrace.d

/*
 * Written by Alan Burlinson -- taken from his blog post
 * at <http://blogs.sun.com/alanbur/date/20050909>.
 */

provider perl {
    probe sub__entry(char *, char *, int);
    probe sub__return(char *, char *, int);
};

/*
 * 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	/*
	2	* Written by Alan Burlinson -- taken from his blog post
	3	* at <http://blogs.sun.com/alanbur/date/20050909>.
	4	*/
	5
	6	provider perl {
effdb690	7	probe sub__entry(char , char , int);
5ac1e9b2 AA	8	probe sub__return(char , char , int);
5ac1e9b2 AA	9	};
6b5ec6e4 JJ	10
	11	/*
	12	* Local Variables:
	13	* tab-width: 4
	14	* indent-tabs-mode: nil
	15	* End:
	16	*
	17	* ex: set ts=8 sts=4 sw=4 noet:
	18	*/