perl.h for Mac OS (Classic)

Message-Id: <p0510030db7fe771a5a34@[10.0.1.177]>

p4raw-id: //depot/perl@12665

diff --git a/perl.h b/perl.h
index 2f3b2d2..052ae8d 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1740,7 +1740,7 @@ typedef struct clone_params CLONE_PARAMS;
 #   endif
 #endif
 
-#if defined(OS2)
+#if defined(OS2) || defined(MACOS_TRADITIONAL)
 #  include "iperlsys.h"
 #endif
 
@@ -2095,7 +2095,7 @@ typedef I32 (*filter_t) (pTHX_ int, SV *, int);
 #define FILTER_DATA(idx)          (AvARRAY(PL_rsfp_filters)[idx])
 #define FILTER_ISREADER(idx)      (idx >= AvFILLp(PL_rsfp_filters))
 
-#if !defined(OS2)
+#if !defined(OS2) && !defined(MACOS_TRADITIONAL)
 #  include "iperlsys.h"
 #endif
 #include "regexp.h"