patch 8.1.0740: Tcl test fails

Problem:    Tcl test fails.
Solution:   When the argument is empty don't give an error, instead rely on
            the error reporting higher up.

diff --git a/src/eval.c b/src/eval.c
index a5e358fe15f77c1d289a8937ab46bb1a758cf90e..e7dcf07499e7cac3e3230382da86a7b649b802d7 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -6462,7 +6462,9 @@ get_name_len(
     }
 
     len += get_id_len(arg);
-    if (len == 0 && verbose)
+    // Only give an error when there is something, otherwise it will be
+    // reported at a higher level.
+    if (len == 0 && verbose && **arg != NUL)
        EMSG2(_(e_invexpr2), *arg);
 
     return len;

diff --git a/src/version.c b/src/version.c
index 8afe3e147a1ba4381682bfa486e6c2536e818310..d8681371f74ebeb9e43fbfa1a2a54031c8e56c63 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -795,6 +795,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    740,
 /**/
     739,
 /**/