(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) '(?\; ?\} ?\{)))