https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #define ABORT() abort(); | |
| 2 | ||
| 3 | /* | |
| 4 | * fwrite1() should be a routine with the same calling sequence as fwrite(), | |
| 5 | * but which outputs all of the bytes requested as a single stream (unlike | |
| 6 | * fwrite() itself, which on some systems outputs several distinct records | |
| 7 | * if the number_of_items parameter is >1). | |
| 8 | */ | |
| 9 | #define fwrite1 fwrite | |
| 10 | ||
| 11 | #define Stat(fname,bufptr) stat((fname),(bufptr)) | |
| 12 | #define Fstat(fd,bufptr) fstat((fd),(bufptr)) | |
| 13 | ||
| 14 | #define my_getenv(var) getenv(var) |