| 1 | /* |
| 2 | * Written by Alan Burlinson -- taken from his blog post |
| 3 | * at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>. |
| 4 | */ |
| 5 | |
| 6 | provider perl { |
| 7 | probe sub__entry(const char *, const char *, int, const char *); |
| 8 | probe sub__return(const char *, const char *, int, const char *); |
| 9 | |
| 10 | probe phase__change(const char *, const char *); |
| 11 | |
| 12 | probe op__entry(const char *); |
| 13 | |
| 14 | probe loading__file(const char *); |
| 15 | probe loaded__file(const char *); |
| 16 | }; |
| 17 | |
| 18 | /* |
| 19 | * Local Variables: |
| 20 | * tab-width: 4 |
| 21 | * indent-tabs-mode: nil |
| 22 | * End: |
| 23 | * |
| 24 | * ex: set ts=8 sts=4 sw=4 et: |
| 25 | */ |