From a0be28da97d0d38b5ef9181812da403f4e9ce11f Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 9 Dec 1999 01:14:46 +0000
Subject: avoid mismatched expectation <-> int types for C++ builds

p4raw-id: //depot/perl@4672
---
 toke.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index 2acfec9aca..57e263ff00 100644
--- a/toke.c
+++ b/toke.c
@@ -672,7 +672,7 @@ S_uni(pTHX_ I32 f, char *s)
  */
 
 STATIC I32
-S_lop(pTHX_ I32 f, expectation x, char *s)
+S_lop(pTHX_ I32 f, int x, char *s)
 {
     dTHR;
     yylval.ival = f;
@@ -5707,7 +5707,7 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des
 			funny, dest, brack, funny, dest, brack);
 		}
 		bracket++;
-		PL_lex_brackstack[PL_lex_brackets++] = XOPERATOR | XFAKEBRACK;
+		PL_lex_brackstack[PL_lex_brackets++] = (char)(XOPERATOR | XFAKEBRACK);
 		return s;
 	    }
 	} 
-- 
cgit v1.2.1