Commit cc6777a3 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(perl-indent-line): When looking for a

label, ensure that the first colon isn't followed by another.
parent 086d5b87
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment