From 1c2e9449254ebd07b473cb641d8568dffc1ecbb0 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:07 +0100
Subject: Distinguish C- and perly- literals - PERLY_EXCLAMATION_MARK

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

(limited to 'perly.y')

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