| | 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 | */ |
https://perl5.git.perl.org / perl5.git / blame_incremental