updated for version 7.2-226
diff --git a/src/if_perl.xs b/src/if_perl.xs
index d344938..a589f8f 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -1233,9 +1233,8 @@
 		    if (u_savedel(lnum, 1) == OK)
 		    {
 			ml_delete(lnum, 0);
+			check_cursor();
 			deleted_lines_mark(lnum, 1L);
-			if (aco.save_curbuf == curbuf)
-			    check_cursor();
 		    }
 
 		    /* restore curwin/curbuf and a few other things */