[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, char *);
    probe sub__return(char *, char *, int, 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	/*
	2	* Written by Alan Burlinson -- taken from his blog post
	3	* at <http://blogs.sun.com/alanbur/date/20050909>.
	4	*/
	5
	6	provider perl {
3e2413e5 DL	7	probe sub__entry(char , char , int, char *);
3e2413e5 DL	8	probe sub__return(char , char , int, 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	*/