1 files changed, 4 insertions, 0 deletions
diff --git a/toke.c b/toke.c
index 253db354f4..019765b08c 100644
--- a/toke.c
+++ b/toke.c
@@ -3776,6 +3776,7 @@ Perl_yylex(pTHX)
 	case KEY_DESTROY:
 	case KEY_BEGIN:
 	case KEY_END:
+	case KEY_STOP:
 	case KEY_INIT:
 	    if (PL_expect == XSTATE) {
 		s = PL_bufptr;
@@ -5214,6 +5215,9 @@ Perl_keyword(pTHX_ register char *d, I32 len)
 	    break;
 	}
 	break;
+    case 'S':
+	if (strEQ(d,"STOP"))			return KEY_STOP;
+	break;
     case 's':
 	switch (d[1]) {
 	case 0:					return KEY_s;