summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorton Allen <nort@bottesini.harvard.edu>1996-11-27 13:36:06 -0500
committerChip Salzenberg <chip@atlantic.net>1996-11-30 05:31:00 +1200
commitc5117498be098729dc2af28089bd130c88c8d42b (patch)
tree83155c26dcc2e2e23c92003e40c78ed961b1eb61
parent7b160dda90126187f14dbd829dee2bd8b9e86fde (diff)
downloadperl-c5117498be098729dc2af28089bd130c88c8d42b.tar.gz
Re: 5.003_09 and QNX
[editor's note: original messages may not have been delivered: the included message may be the only remaining trace. see note on <9611271732.AA17020@bottesini.harvard.edu>: --- |3 [ There was a set of quite minor patches posted on 11/20; I got them, but who knows who else did, the list being what it is... I am also nearly ready to submit a QNX hints file together with a couple auxilliary support files.] ... ] Subject: QNX Port Greetings, QNX is now compiling 5.003_08 successfully and passing all tests except for two which have been identified as library errors and are in the process of being fixed by the vendor. I'd like to submit a few small patches which makes this work. The patches are accompanied by text describing their motivation. If I am moving too fast, please tell me slow down. If you have suggestions for other/better approaches, please let me know. I will follow up with a hints file and a (possibly more controversial) Configure change. -Norton Allen Under QNX, I need to include <sys/wait.h> in util.c to prototype waitpid(). This appears straightforward to me, but if it causes trouble, it could be made OS-dependent. This patch is against perl5.003_08 p5p-msgid: <9611201749.AA11327@bottesini.harvard.edu> private-msgid: <9611271836.AA14460@bottesini.harvard.edu>
-rwxr-xr-xt/TEST1
-rw-r--r--toke.c2
-rw-r--r--util.c4
3 files changed, 5 insertions, 2 deletions
diff --git a/t/TEST b/t/TEST
index 4ef50ea478..37a2e70ae4 100755
--- a/t/TEST
+++ b/t/TEST
@@ -32,6 +32,7 @@ while (<CONFIG>) {
}
}
$sharpbang = 0 if $ENV{OS2_SHELL}; # OS/2
+$sharpbang = 0 if ($^O eq 'qnx'); # QNX
$bad = 0;
$good = 0;
$total = @ARGV;
diff --git a/toke.c b/toke.c
index b4c4d9e59a..feebdedf89 100644
--- a/toke.c
+++ b/toke.c
@@ -4978,11 +4978,9 @@ start_subparse()
CV* outsidecv = compcv;
AV* comppadlist;
-#ifndef __QNX__
if (compcv) {
assert(SvTYPE(compcv) == SVt_PVCV);
}
-#endif
save_I32(&subline);
save_item(subname);
SAVEI32(padix);
diff --git a/util.c b/util.c
index da73b5784c..b8baa815bb 100644
--- a/util.c
+++ b/util.c
@@ -42,6 +42,10 @@
# include <sys/file.h>
#endif
+#ifdef I_SYS_WAIT
+# include <sys/wait.h>
+#endif
+
#define FLUSH
#ifdef LEAKTEST