Add missing "" around $Config{startperl}.

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

diff --git a/dosish.h b/dosish.h
index a7a498a..8747f2d 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -1 +1,14 @@
 #define ABORT() abort();
+
+/*
+ * 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
+ * fwrite() itself, which on some systems outputs several distinct records
+ * if the number_of_items parameter is >1).
+ */
+#define fwrite1 fwrite
+
+#define Stat(fname,bufptr) stat((fname),(bufptr))
+#define Fstat(fd,bufptr)   fstat((fd),(bufptr))
+
+#define my_getenv(var)  getenv(var)