# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 794629365 0
# Node ID fb2da60a38de62bcc68039173f25ce4b1bd16217
# Parent  6fadcdae0c5e02deaf92972fc81f187300e1556b
(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 -r 6fadcdae0c5e -r fb2da60a38de lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Wed Mar 08 01:26:16 1995 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Mar 08 02:22:45 1995 +0000
@@ -464,8 +464,8 @@
 			     (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) '(?\; ?\} ?\{)))