patch 8.1.1940: script tests fail

Problem:    Script tests fail.
Solution:   Don't set vimvars type in set_vim_var_nr().

src/eval.c

@@ -7879,6 +7879,7 @@ filter_map(typval_T *argvars, typval_T *rettv, int map)
 	    int		i;
 	    typval_T	tv;
 
+	    set_vim_var_type(VV_KEY, VAR_NUMBER);
 	    for (i = 0; i < b->bv_ga.ga_len; i++)
 	    {
 		tv.v_type = VAR_NUMBER;
@@ -7907,6 +7908,8 @@ filter_map(typval_T *argvars, typval_T *rettv, int map)
 	else
 	{
 	    // argvars[0].v_type == VAR_LIST
+	    set_vim_var_type(VV_KEY, VAR_NUMBER);
+
 	    for (li = l->lv_first; li != NULL; li = nli)
 	    {
 		if (map && var_check_lock(li->li_tv.v_lock, arg_errmsg, TRUE))

src/evalvars.c

@@ -1690,13 +1690,21 @@ get_user_var_name(expand_T *xp, int idx)
     return NULL;
 }
 
+/*
+ * Set type of v: variable to "type".
+ */
+    void
+set_vim_var_type(int idx, vartype_T type)
+{
+    vimvars[idx].vv_type = type;
+}
+
 /*
  * Set number v: variable to "val".
  */
     void
 set_vim_var_nr(int idx, varnumber_T val)
 {
-    vimvars[idx].vv_type = VAR_NUMBER;
     vimvars[idx].vv_nr = val;
 }
 

src/proto/evalvars.pro

@@ -15,6 +15,7 @@ void ex_unlet(exarg_T *eap);
 void ex_lockvar(exarg_T *eap);
 int do_unlet(char_u *name, int forceit);
 char_u *get_user_var_name(expand_T *xp, int idx);
+void set_vim_var_type(int idx, vartype_T type);
 void set_vim_var_nr(int idx, varnumber_T val);
 typval_T *get_vim_var_tv(int idx);
 varnumber_T get_vim_var_nr(int idx);

src/version.c

@@ -761,6 +761,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    1940,
 /**/
     1939,
 /**/