Avoid infloop in CPerl mode fontification

* lisp/progmodes/cperl-mode.el
(cperl-font-lock-fontify-region-function): Stop the loop at
EOB, to avoid inflooping there.  (Bug#33114)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 6dbdba75de60e86af6d1eb2098df7da62e723a1f..b152b9c724d234be0a0ae2a6094474f07e604777 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -8884,7 +8884,7 @@ do extra unwind via `cperl-unwind-to-safe'."
        (goto-char new-beg)))
     (setq beg (point))
     (goto-char end)
-    (while (and end
+    (while (and end (< end (point-max))
                (progn
                  (or (bolp) (condition-case nil
                                 (forward-line 1)