diff --git a/src/if_perl.xs b/src/if_perl.xs
index 2e27fed24a..acf7f86d8f 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -445,13 +445,13 @@ msg_split(s, attr)
     char *next;
     char *token = (char *)s;
 
-    while ((next = strchr(token, '\n')))
+    while ((next = strchr(token, '\n')) && !got_int)
     {
 	*next++ = '\0';			/* replace \n with \0 */
 	msg_attr((char_u *)token, attr);
 	token = next;
     }
-    if (*token)
+    if (*token && !got_int)
 	msg_attr((char_u *)token, attr);
 }
 
diff --git a/src/version.c b/src/version.c
index 26d6b6cf86..ce42fbc4ab 100644
--- a/src/version.c
+++ b/src/version.c
@@ -666,6 +666,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    138,
 /**/
     137,
 /**/