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 { 7 probe sub__entry(char *, char *, int); 8 probe sub__return(char *, char *, int); 9 }; 10