From cc6777a332b8d11148c5ff72ad8ad07c41b83f7d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 30 May 2000 20:40:09 +0000 Subject: [PATCH] (perl-indent-line): When looking for a label, ensure that the first colon isn't followed by another. --- lisp/progmodes/perl-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 0772d565a88..2ae0f6b8575 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -488,7 +488,7 @@ changed by, or (parse-state) if line starts in a quoted string." ((looking-at (or nochange perl-nochange)) 0) (t (skip-chars-forward " \t\f") - (cond ((looking-at "\\(\\w\\|\\s_\\)+:") + (cond ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") (setq indent (max 1 (+ indent perl-label-offset)))) ((= (following-char) ?}) (setq indent (- indent perl-indent-level))) -- 2.39.5