Mercurial > vim

diff src/if_perl.xs @ 34234:daaff6843090 v9.1.0062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 9.1.0062: Internal error when :luado/perldo/pydo etc delete lines Commit: https://github.com/vim/vim/commit/e99f0688785c3d56b1ee45a28fa6ce02b850a33b Author: zeertzjq <zeertzjq@outlook.com> Date: Mon Jan 29 19:32:39 2024 +0100 patch 9.1.0062: Internal error when :luado/perldo/pydo etc delete lines Problem: Internal error when :luado/perldo/pydo etc delete lines Solution: Test that the line is still valid line number (zeertzjq) closes: #13931 Signed-off-by: zeertzjq <zeertzjq@outlook.com> Signed-off-by: Christian Brabandt <cb@256bit.org>
author Christian Brabandt <cb@256bit.org>
date Mon, 29 Jan 2024 19:45:06 +0100
parents 6733c5359e8a
children
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -1368,7 +1368,7 @@ ex_perldo(exarg_T *eap)
 	PUSHMARK(sp);
 	perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL);
 	str = SvPV(GvSV(PL_errgv), length);
-	if (length || curbuf != was_curbuf)
+	if (length || curbuf != was_curbuf || i > curbuf->b_ml.ml_line_count)
 	    break;
 	SPAGAIN;
 	if (SvTRUEx(POPs))