From 3d92c6b8aa91a3ee216dd4aafedacd8b6e129803 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:08 +0100
Subject: Distinguish C- and perly- literals - PERLY_TILDE

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

(limited to 'perly.y')

diff --git a/perly.y b/perly.y
index 4998d660c9..67bbda88ec 100644
--- a/perly.y
+++ b/perly.y
@@ -116,7 +116,7 @@
 %left ADDOP
 %left MULOP
 %left <ival> MATCHOP
-%right <ival> PERLY_EXCLAMATION_MARK '~' UMINUS REFGEN
+%right <ival> PERLY_EXCLAMATION_MARK PERLY_TILDE UMINUS REFGEN
 %right <ival> POWOP
 %nonassoc <ival> PREINC PREDEC POSTINC POSTDEC POSTJOIN
 %left <ival> ARROW
@@ -1102,8 +1102,8 @@ termunop : '-' term %prec UMINUS                       /* -$x */
 
 	|	PERLY_EXCLAMATION_MARK term                               /* !$x */
 			{ $$ = newUNOP(OP_NOT, 0, scalar($term)); }
-	|	'~' term                               /* ~$x */
-			{ $$ = newUNOP($1, 0, scalar($term)); }
+	|	PERLY_TILDE term                               /* ~$x */
+			{ $$ = newUNOP($PERLY_TILDE, 0, scalar($term)); }
 	|	term POSTINC                           /* $x++ */
 			{ $$ = newUNOP(OP_POSTINC, 0,
 					op_lvalue(scalar($term), OP_POSTINC)); }
-- 
cgit v1.2.1