From: Chris Nandor <pudge@pobox.com>
Date: Thu, 25 Oct 2001 22:15:03 +0000 (-0400)
Subject: perl.h for Mac OS (Classic)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af8b425d5dabbd7f0599afb653965896bb9ed01d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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"