From 0ba95c59b78e1c0733f9a491f242d4ab31128108 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:15 +0100
Subject: Distinguish C- and perly- literals - PERLY_PERCENT_SIGN

---
 perly.y | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perly.y')

diff --git a/perly.y b/perly.y
index 21cb35c727..7d83819ad2 100644
--- a/perly.y
+++ b/perly.y
@@ -45,7 +45,6 @@
 
 %token <ival> GRAMPROG GRAMEXPR GRAMBLOCK GRAMBARESTMT GRAMFULLSTMT GRAMSTMTSEQ GRAMSUBSIGNATURE
 
-%token <ival> '%'
 %token <ival> PERLY_AMPERSAND
 %token <ival> PERLY_BRACE_OPEN
 %token <ival> PERLY_BRACE_CLOSE
@@ -55,6 +54,7 @@
 %token <ival> PERLY_DOT
 %token <ival> PERLY_EQUAL_SIGN
 %token <ival> PERLY_MINUS
+%token <ival> PERLY_PERCENT_SIGN
 %token <ival> PERLY_PLUS
 %token <ival> PERLY_SEMICOLON
 %token <ival> PERLY_SNAIL
@@ -661,7 +661,7 @@ sigvarname:     /* NULL */
 sigslurpsigil:
                 PERLY_SNAIL
                         { $$ = '@'; }
-        |       '%'
+        |       PERLY_PERCENT_SIGN
                         { $$ = '%'; }
 
 /* @, %, @foo, %foo */
@@ -1249,7 +1249,7 @@ term[product]	:	termbinop
 			{ $$ = newSVREF($operand); }
 	|	term[operand] ARROW PERLY_SNAIL '*'
 			{ $$ = newAVREF($operand); }
-	|	term[operand] ARROW '%' '*'
+	|	term[operand] ARROW PERLY_PERCENT_SIGN '*'
 			{ $$ = newHVREF($operand); }
 	|	term[operand] ARROW PERLY_AMPERSAND '*'
 			{ $$ = newUNOP(OP_ENTERSUB, 0,
@@ -1387,9 +1387,9 @@ ary	:	PERLY_SNAIL indirob
 			}
 	;
 
-hsh	:	'%' indirob
+hsh	:	PERLY_PERCENT_SIGN indirob
 			{ $$ = newHVREF($indirob);
-			  if ($$) $$->op_private |= $1;
+			  if ($$) $$->op_private |= $PERLY_PERCENT_SIGN;
 			}
 	;
 
@@ -1409,7 +1409,7 @@ sliceme	:	ary
 	;
 
 kvslice	:	hsh
-	|	term ARROW '%'
+	|	term ARROW PERLY_PERCENT_SIGN
 			{ $$ = newHVREF($term); }
 	;
 
-- 
cgit v1.2.1