More MacOS Classic fixes from Chris Nandor.

p4raw-id: //depot/perl@8805

1 files changed, 4 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index 1495953955..a760a78de3 100644
--- a/doop.c
+++ b/doop.c
@@ -187,6 +187,10 @@ S_do_trans_complex(pTHX_ SV *sv)/* SPC - NOT OK */
 	    d = s;
 	dstart = d;
 
+#ifdef MACOS_TRADITIONAL
+#define comp CoMP   /* "comp" is a keyword in some compilers ... */
+#endif
+
 	if (PL_op->op_private & OPpTRANS_SQUASH) {
 	    U8* p = send;
 	    UV pch = 0xfeedface;