# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 959719209 0
# Node ID 9f58922ddbcc37c7ab4a45c3d15dcbdcf0553db5
# Parent  71272a11eab7b76b25fd96adb0dc6a240f1ec9f8
(perl-indent-line): When looking for a
label, ensure that the first colon isn't followed by another.

diff -r 71272a11eab7 -r 9f58922ddbcc lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Tue May 30 20:02:22 2000 +0000
+++ b/lisp/progmodes/perl-mode.el	Tue May 30 20:40:09 2000 +0000
@@ -488,7 +488,7 @@
 		((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)))