This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.002beta2 patch: toke.c
[perl5.git] / dosish.h
CommitLineData
79072805 1#define ABORT() abort();
a0d0e21e
LW
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)