# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1004496174 0
# Node ID 901d871219d08789c249bc1dc9797a4c634f7663
# Parent  4b57ae8d5508c0c8d343fd0719654952ed8923e9
(perl-indent-line): Use `eq' to compare output of `char-after'.

diff -r 4b57ae8d5508 -r 901d871219d0 lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Wed Oct 31 02:32:18 2001 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Oct 31 02:42:54 2001 +0000
@@ -481,7 +481,7 @@
     (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