(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.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index c0e0cbba09b..fd12d9c7b77 100644
--- 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) '(?\; ?\} ?\{)))