(cperl-after-expr-p): Don't move point

to nil if there is no previous property change.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index ad44753f352dcbb87300b22730e2dab0f61b5c72..69f4549a0bf88cc32cbcd21d18f64505c9964042 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3914,12 +3914,14 @@ CHARS is a string that contains good characters to have before us (however,
        (if (get-text-property (point) 'here-doc-group)
            (progn
              (goto-char
-              (previous-single-property-change (point) 'here-doc-group))
+              (or (previous-single-property-change (point) 'here-doc-group)
+                  (point)))
              (beginning-of-line 0)))
        (if (get-text-property (point) 'in-pod)
            (progn
              (goto-char
-              (previous-single-property-change (point) 'in-pod))
+              (or (previous-single-property-change (point) 'in-pod)
+                  (point)))
              (beginning-of-line 0)))
        (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
          ;; Else: last iteration, or a label