Distinguish C- and perly- literals - PERLY_MINUS

1 files changed, 3 insertions, 2 deletions

diff --git a/perly.y b/perly.y
index 7f1158857e..2a32ef1d6b 100644
--- a/perly.y
+++ b/perly.y
@@ -45,7 +45,7 @@
 
 %token <ival> GRAMPROG GRAMEXPR GRAMBLOCK GRAMBARESTMT GRAMFULLSTMT GRAMSTMTSEQ GRAMSUBSIGNATURE
 
-%token <ival> '-' '+' '@' '%'
+%token <ival> '+' '@' '%'
 %token <ival> PERLY_AMPERSAND
 %token <ival> PERLY_BRACE_OPEN
 %token <ival> PERLY_BRACE_CLOSE
@@ -54,6 +54,7 @@
 %token <ival> PERLY_COMMA
 %token <ival> PERLY_DOT
 %token <ival> PERLY_EQUAL_SIGN
+%token <ival> PERLY_MINUS
 %token <ival> PERLY_SEMICOLON
 
 %token <opval> BAREWORD METHOD FUNCMETH THING PMFUNC PRIVATEREF QWLIST
@@ -1095,7 +1096,7 @@ eqopchain:	term[lhs] CHEQOP term[rhs]
 	;
 
 /* Unary operators and terms */
-termunop : '-' term %prec UMINUS                       /* -$x */
+termunop : PERLY_MINUS term %prec UMINUS                       /* -$x */
 			{ $$ = newUNOP(OP_NEGATE, 0, scalar($term)); }
 	|	'+' term %prec UMINUS                  /* +$x */
 			{ $$ = $term; }