143003dfeSmillert /* 243003dfeSmillert * Written by Alan Burlinson -- taken from his blog post 3898184e3Ssthen * at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>. 443003dfeSmillert */ 543003dfeSmillert 643003dfeSmillert provider perl { 7898184e3Ssthen probe sub__entry(const char *, const char *, int, const char *); 8898184e3Ssthen probe sub__return(const char *, const char *, int, const char *); 9898184e3Ssthen 10898184e3Ssthen probe phase__change(const char *, const char *); 11*91f110e0Safresh1 12*91f110e0Safresh1 probe op__entry(const char *); 13*91f110e0Safresh1 14*91f110e0Safresh1 probe loading__file(const char *); 15*91f110e0Safresh1 probe loaded__file(const char *); 1643003dfeSmillert }; 17898184e3Ssthen 18898184e3Ssthen /* 19*91f110e0Safresh1 * ex: set ts=8 sts=4 sw=4 et: 20898184e3Ssthen */ 21