From a1ad62bfea2492db90c01a1b1dfe6612521d7c3a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Branislav=20Zahradn=C3=ADk?= <barney@cpan.org>
Date: Fri, 11 Dec 2020 17:19:10 +0100
Subject: Distinguish C- and perly- literals - PERLY_QUESTION_MARK

---
 perly.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perly.y')

diff --git a/perly.y b/perly.y
index b05536b23a..7f1158857e 100644
--- a/perly.y
+++ b/perly.y
@@ -102,7 +102,7 @@
 %nonassoc LSTOP LSTOPSUB
 %left PERLY_COMMA
 %right <ival> ASSIGNOP
-%right <ival> '?' PERLY_COLON
+%right <ival> PERLY_QUESTION_MARK PERLY_COLON
 %nonassoc DOTDOT
 %left <ival> OROR DORDOR
 %left <ival> ANDAND
@@ -1158,7 +1158,7 @@ term[product]	:	termbinop
 	|	termunop
 	|	anonymous
 	|	termdo
-	|	term[condition] '?' term[then] PERLY_COLON term[else]
+	|	term[condition] PERLY_QUESTION_MARK term[then] PERLY_COLON term[else]
 			{ $$ = newCONDOP(0, $condition, $then, $else); }
 	|	REFGEN term[operand]                          /* \$x, \@y, \%z */
 			{ $$ = newUNOP(OP_REFGEN, 0, $operand); }
-- 
cgit v1.2.1