summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1998-10-17 13:43:54 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1998-10-17 13:43:54 +0000
commit092bebab2f702b0ac392b3259fc90294ab403f4b (patch)
tree3d5351416db9d4e4aa91afdf7b5202d097fdc6a3 /perl.h
parentb56ec34489067f612a4e5d2fecae86c5bbfffd5c (diff)
downloadperl-092bebab2f702b0ac392b3259fc90294ab403f4b.tar.gz
The VM/ESA port essentials, based on
perl-mvs: From: Neale Ferguson <neale@VMA.TABNSW.COM.AU> Subject: Re: Can't find Data/Dumper.pm Date: Mon, 28 Sep 1998 07:40:49 +1300 Message-ID: <360E86B0.23847AF4@mailbox.tabnsw.com.au> private email: From: Neale Ferguson <neale@VMA.TABNSW.COM.AU> Subject: Re: Perl thread problems in VM/ESA Date: Thu, 15 Oct 1998 07:18:35 +1300 Message-ID: <3624EAFA.16163A2B@mailbox.tabnsw.com.au> and private email: From: Neale Ferguson <NEALE@PUCC.PRINCETON.EDU> Subject: perl archive Date: Sun, 11 Oct 1998 19:28:54 EDT Message-Id: <19981011233112Z67215-26626+1513@outbound.Princeton.EDU> which gave a pointer to http://pucc.princeton.edu/~neale/perl.tar (based on Perl 5.005_51) p4raw-id: //depot/cfgperl@2006
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h22
1 files changed, 15 insertions, 7 deletions
diff --git a/perl.h b/perl.h
index 2871d8021f..bec75f7dd6 100644
--- a/perl.h
+++ b/perl.h
@@ -339,11 +339,15 @@ register struct op *op asm(stringify(OP_IN_REGISTER));
#ifdef USE_NEXT_CTYPE
-#if NX_CURRENT_COMPILER_RELEASE >= 400
-#include <objc/NXCType.h>
-#else /* NX_CURRENT_COMPILER_RELEASE < 400 */
-#include <appkit/NXCType.h>
-#endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */
+#if NX_CURRENT_COMPILER_RELEASE >= 500
+# include <bsd/ctypes.h>
+#else
+# if NX_CURRENT_COMPILER_RELEASE >= 400
+# include <objc/NXCType.h>
+# else /* NX_CURRENT_COMPILER_RELEASE < 400 */
+# include <appkit/NXCType.h>
+# endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */
+#endif /* NX_CURRENT_COMPILER_RELEASE >= 500 */
#else /* !USE_NEXT_CTYPE */
#include <ctype.h>
@@ -1307,7 +1311,11 @@ typedef I32 (*filter_t) _((int, SV *, int));
# if defined(__VOS__)
# include "vosish.h"
# else
-# include "unixish.h"
+# if defined(__OPEN_VM)
+# include "vmesa/vmesaish.h"
+# else
+# include "unixish.h"
+# endif
# endif
# endif
# endif
@@ -1693,7 +1701,7 @@ double atof _((const char*));
/* All of these are in stdlib.h or time.h for ANSI C */
Time_t time();
struct tm *gmtime(), *localtime();
-#ifdef OEMVS
+#if defined(OEMVS) || defined(__OPEN_VM)
char *(strchr)(), *(strrchr)();
char *(strcpy)(), *(strcat)();
#else