toke.c: Merge KEY_tr and KEY_y

diff --git a/toke.c b/toke.c
index c607071..5174f89 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8441,6 +8441,7 @@ Perl_yylex(pTHX)
            LOP(OP_SYSWRITE,XTERM);
 
        case KEY_tr:
+       case KEY_y:
            s = scan_trans(s);
            TERM(sublex_start());
 
@@ -8568,10 +8569,6 @@ Perl_yylex(pTHX)
                return REPORT(0);
            pl_yylval.ival = OP_XOR;
            OPERATOR(OROP);
-
-       case KEY_y:
-           s = scan_trans(s);
-           TERM(sublex_start());
        }
     }}
 }