From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 31 Oct 2001 02:42:54 +0000 (+0000)
Subject: (perl-indent-line): Use `eq' to compare output of `char-after'.
X-Git-Tag: ttn-vms-21-2-B4~18971
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ab2646a67d00449f1af5a37a26660a36cc484cd;p=emacs.git

(perl-indent-line): Use `eq' to compare output of `char-after'.
---

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index c6a90cc0dd0..6e5fc1fd6ea 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -481,7 +481,7 @@ changed by, or (parse-state) if line starts in a quoted string."
     (beginning-of-line)
     (setq beg (point))
     (setq shift-amt
-	  (cond ((= (char-after bof) ?=) 0)
+	  (cond ((eq (char-after bof) ?=) 0)
 		((listp (setq indent (perl-calculate-indent bof))) indent)
 		((looking-at (or nochange perl-nochange)) 0)
 		(t