Patch for Perlbug #4253

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

diff --git a/toke.c b/toke.c
index d666ce2..314c040 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5602,36 +5602,26 @@ Perl_keyword (pTHX_ char *name, I32 len)
             return KEY_m;
           }
 
-          goto unknown;
-
         case 'q':
           {                                       /* q          */
             return KEY_q;
           }
 
-          goto unknown;
-
         case 's':
           {                                       /* s          */
             return KEY_s;
           }
 
-          goto unknown;
-
         case 'x':
           {                                       /* x          */
             return -KEY_x;
           }
 
-          goto unknown;
-
         case 'y':
           {                                       /* y          */
             return KEY_y;
           }
 
-          goto unknown;
-
         default:
           goto unknown;
       }
@@ -5663,15 +5653,11 @@ Perl_keyword (pTHX_ char *name, I32 len)
                 return -KEY_ge;
               }
 
-              goto unknown;
-
             case 't':
               {                                   /* gt         */
                 return -KEY_gt;
               }
 
-              goto unknown;
-
             default:
               goto unknown;
           }
@@ -5692,22 +5678,16 @@ Perl_keyword (pTHX_ char *name, I32 len)
                 return -KEY_lc;
               }
 
-              goto unknown;
-
             case 'e':
               {                                   /* le         */
                 return -KEY_le;
               }
 
-              goto unknown;
-
             case 't':
               {                                   /* lt         */
                 return -KEY_lt;
               }
 
-              goto unknown;
-
             default:
               goto unknown;
           }
@@ -5728,15 +5708,11 @@ Perl_keyword (pTHX_ char *name, I32 len)
                 return -KEY_ne;
               }
 
-              goto unknown;
-
             case 'o':
               {                                   /* no         */
                 return KEY_no;
               }
 
-              goto unknown;
-
             default:
               goto unknown;
           }
@@ -5757,29 +5733,21 @@ Perl_keyword (pTHX_ char *name, I32 len)
                 return KEY_qq;
               }
 
-              goto unknown;
-
             case 'r':
               {                                   /* qr         */
                 return KEY_qr;
               }
 
-              goto unknown;
-
             case 'w':
               {                                   /* qw         */
                 return KEY_qw;
               }
 
-              goto unknown;
-
             case 'x':
               {                                   /* qx         */
                 return KEY_qx;
               }
 
-              goto unknown;
-
             default:
               goto unknown;
           }
@@ -6005,15 +5973,11 @@ Perl_keyword (pTHX_ char *name, I32 len)
                   return -KEY_pop;
                 }
 
-                goto unknown;
-
               case 's':
                 {                                 /* pos        */
                   return KEY_pos;
                 }
 
-                goto unknown;
-
               default:
                 goto unknown;
             }
@@ -6946,15 +6910,11 @@ Perl_keyword (pTHX_ char *name, I32 len)
                           return KEY_untie;
                         }
 
-                        goto unknown;
-
                       case 'l':
                         {                         /* until      */
                           return KEY_until;
                         }
 
-                        goto unknown;
-
                       default:
                         goto unknown;
                     }
@@ -8152,15 +8112,11 @@ Perl_keyword (pTHX_ char *name, I32 len)
                         return -KEY_readline;
                       }
 
-                      goto unknown;
-
                     case 'k':
                       {                           /* readlink   */
                         return -KEY_readlink;
                       }
 
-                      goto unknown;
-
                     default:
                       goto unknown;
                   }