This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.000
[perl5.git] / dosish.h
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)