mirror of
https://github.com/vim/vim.git
synced 2025-09-25 03:54:15 -04:00
patch 8.2.4931: Crash with sequence of Perl commands
Problem: Crash with sequence of Perl commands. Solution: Move PUTBACK to another line. (closes #10386)
This commit is contained in:
@@ -1373,6 +1373,7 @@ do_perleval(char_u *str, typval_T *rettv)
|
|||||||
SPAGAIN;
|
SPAGAIN;
|
||||||
SvREFCNT_dec(sv);
|
SvREFCNT_dec(sv);
|
||||||
sv = POPs;
|
sv = POPs;
|
||||||
|
PUTBACK;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -1383,7 +1384,6 @@ do_perleval(char_u *str, typval_T *rettv)
|
|||||||
ref_map_free();
|
ref_map_free();
|
||||||
err = SvPV(GvSV(PL_errgv), err_len);
|
err = SvPV(GvSV(PL_errgv), err_len);
|
||||||
}
|
}
|
||||||
PUTBACK;
|
|
||||||
FREETMPS;
|
FREETMPS;
|
||||||
LEAVE;
|
LEAVE;
|
||||||
}
|
}
|
||||||
|
@@ -746,6 +746,8 @@ static char *(features[]) =
|
|||||||
|
|
||||||
static int included_patches[] =
|
static int included_patches[] =
|
||||||
{ /* Add new patch number below this line */
|
{ /* Add new patch number below this line */
|
||||||
|
/**/
|
||||||
|
4931,
|
||||||
/**/
|
/**/
|
||||||
4930,
|
4930,
|
||||||
/**/
|
/**/
|
||||||
|
Reference in New Issue
Block a user