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

label, ensure that the first colon isn't followed by another.

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 0772d565a88010a265fed1ea70efcef98cf7773f..2ae0f6b85753c7a58a01a573a7a74425523c8b0a 100644 (file)
--- 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)))