# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1045216730 0
# Node ID aca582e2f94c6bbd4c1ef27bdf6efba065c2e889
# Parent  8bd940e52b6e98ca504d4d21bf09fbaf7593b99d
(cperl-next-bad-style): Fix use of character constant.

diff -r 8bd940e52b6e -r aca582e2f94c lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Fri Feb 14 09:58:27 2003 +0000
+++ b/lisp/progmodes/cperl-mode.el	Fri Feb 14 09:58:50 2003 +0000
@@ -5980,7 +5980,7 @@
 	   (and (eq (following-char) ?\-)
 		(save-excursion
 		  (skip-chars-backward " \t\n")
-		  (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\(, ?\[, ?\{))))
+		  (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{))))
 	   ;; Now check for syntax type
 	   (save-match-data
 	     (setq found (point))