Distinguish C- and perly- literals - PERLY_QUESTION_MARK

1 files changed, 2 insertions, 2 deletions

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); }