[Emacs-diffs] master 6d7e34b 2/2: Support indented HERE-DOCs in cperl-mode

[Eli Zaretskii]

branch: master
commit 6d7e34b692edd61ac2f0872db521bcec321453cf
Author: vividsnow <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Support indented HERE-DOCs in cperl-mode
    
    * lisp/progmodes/cperl-mode.el (cperl-find-pods-heres): Support
    indented here-docs.  (Bug#27254) (Bug#27697)
    
    Copyright-paperwork-exempt: yes
---
 lisp/progmodes/cperl-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index c0f1aaf..c69eca2 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3734,7 +3734,7 @@ the sections using `cperl-pod-head-face', 
`cperl-pod-face',
           "\\(\\`\n?\\|^\n\\)="        ; POD
           "\\|"
           ;; One extra () before this:
-          "<<"                         ; HERE-DOC
+          "<<~?"                       ; HERE-DOC
           "\\("                        ; 1 + 1
           ;; First variant "BLAH" or just ``.
           "[ \t]*"                     ; Yes, whitespace is allowed!
@@ -4000,7 +4000,7 @@ the sections using `cperl-pod-head-face', 
`cperl-pod-face',
                  (setq b (point))
                  ;; We do not search to max, since we may be called from
                  ;; some hook of fontification, and max is random
-                 (or (and (re-search-forward (concat "^" qtag "$")
+                 (or (and (re-search-forward (concat "^[ \t]*" qtag "$")
                                              stop-point 'toend)
                           ;;;(eq (following-char) ?\n) ; XXXX WHY???
                           )