Change to use $^O and &Cwd:cwd

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

diff --git a/dosish.h b/dosish.h
index 8747f2d..e40e358 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -1,5 +1,11 @@
 #define ABORT() abort();
 
+#define BIT_BUCKET "\dev\nul"
+#define PERL_SYS_INIT(c,v)
+#define PERL_SYS_TERM()
+#define dXSUB_SYS int dummy
+#define TMPPATH "plXXXXXX"
+
 /*
  * 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
@@ -10,5 +16,6 @@
 
 #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)