(calculate-perl-indent): When backing up over continuations,

don't go to line beg;
perl-backward-to-start-of-continued-exp gives the right place.

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index c0e0cbba09b1c618581d3d739b60fd338ea218c0..fd12d9c7b772fe0dfb1397d091c6cf463e0aad6b 100644 (file)
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -464,8 +464,8 @@ Returns (parse-state) if line starts inside a string."
                             (memq (char-syntax (char-after (- (point) 2)))
                                   '(?w ?_))))
               (if (eq (preceding-char) ?\,)
-                  (perl-backward-to-start-of-continued-exp containing-sexp))
-              (beginning-of-line)
+                  (perl-backward-to-start-of-continued-exp containing-sexp)
+                (beginning-of-line))
               (perl-backward-to-noncomment))
             ;; Now we get the answer.
             (if (not (memq (preceding-char) '(?\; ?\} ?\{)))