Import of Perl 5.003 into the tree. Makefile.bsd-wrapper and

config.sh.OpenBSD are the only local changes.

1 files changed, 21 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/dosish.h b/gnu/usr.bin/perl/dosish.h
new file mode 100644
index 00000000000..e40e358b75a
--- /dev/null
+++ b/gnu/usr.bin/perl/dosish.h
@@ -0,0 +1,21 @@
+#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
+ * 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 Fflush(fp)         fflush(fp)
+
+#define my_getenv(var)  getenv(var)