perl 5.003_01: t/lib/filehand.t

[p5sagit/p5-mst-13.2.git] / unixish.h

diff --git a/unixish.h b/unixish.h
index aa4ddbf..2f5f44b 100644 (file)
--- a/unixish.h
+++ b/unixish.h
@@ -60,6 +60,11 @@
 #endif
 #define ABORT() kill(getpid(),SIGABRT);
 
+#define BIT_BUCKET "/dev/null"
+#define PERL_SYS_INIT(c,v)
+#define PERL_SYS_TERM()
+#define dXSUB_SYS int dummy
+
 /*
  * fwrite1() should be a routine with the same calling sequence as fwrite(),
  * but which outputs all of the bytes requested as a single stream (unlike
@@ -70,6 +75,7 @@
 
 #define Stat(fname,bufptr) stat((fname),(bufptr))
 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
+#define Fflush(fp)         fflush(fp)
 
 #define my_getenv(var) getenv(var)