https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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 | ||
| 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 et: | |
| 20 | */ |