Porting/Maintainers.pl

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index 9b61cee..6618fa6 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -12495,7 +12495,7 @@ Perl_yyerror(pTHX_ const char *s)
        if (yychar < 32)
            Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar));
        else if (isPRINT_LC(yychar)) {
-           const unsigned char string = (unsigned char) yychar;
+           const char string = yychar;
            sv_catpvn(where_sv, &string, 1);
        }
        else