perly.c: Fix off-by-1 error for EBCDIC platforms

Code point 255 was being omitted in the translation.  It's better to use
the macro (that has it correctly) and avoid a redundant copy of the
test.

1 files changed, 2 insertions, 2 deletions

diff --git a/perly.c b/perly.c
index 034a1a73bf..44d6ce68e4 100644
--- a/perly.c
+++ b/perly.c
@@ -325,8 +325,8 @@ Perl_yyparse (pTHX_ int gramtype)
  * on a platform that doesn't use ASCII, this translation back would need to be
  * removed */
 #  ifdef EBCDIC
-	if (parser->yychar >= 0 && parser->yychar < 255) {
-	    parser->yychar = NATIVE_TO_LATIN1(parser->yychar);
+	if (parser->yychar >= 0) {
+	    parser->yychar = NATIVE_TO_UNI(parser->yychar);
 	}
 #  endif
     }