signature sub (\x80 triggered an assertion

RT #130661

In the presence of 'use feature "signatures"', a char >= 0x80 where a sigil
was expected triggered an assert failure, because the (signed) character
was being was being promoted to int and ended up getting returned from
yylex() as a negative value.

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 10ee5007c6..7dcdd5afa1 100644
--- a/toke.c
+++ b/toke.c
@@ -5037,7 +5037,7 @@ Perl_yylex(pTHX)
          * as a var; e.g. ($, ...) would be seen as the var '$,'
          */
 
-        char sigil;
+        U8 sigil;
 
         s = skipspace(s);
         sigil = *s++;