GNU bug report logs - #62601
perl-mode bracket indentation distorted by label

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 2 Apr 2023 01:46:12 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Apr 01 21:46:12 2023
Received: from localhost ([127.0.0.1]:38774 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1pimnL-0002kK-La
	for submit <at> debbugs.gnu.org; Sat, 01 Apr 2023 21:46:11 -0400
Received: from lists.gnu.org ([209.51.188.17]:35654)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <jidanni@HIDDEN>) id 1pimnJ-0002kC-BR
 for submit <at> debbugs.gnu.org; Sat, 01 Apr 2023 21:46:09 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <jidanni@HIDDEN>)
 id 1pimnG-0000yz-UI
 for bug-gnu-emacs@HIDDEN; Sat, 01 Apr 2023 21:46:07 -0400
Received: from chocolate.ash.relay.mailchannels.net ([23.83.222.35])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <jidanni@HIDDEN>)
 id 1pimnB-0000pS-6f
 for bug-gnu-emacs@HIDDEN; Sat, 01 Apr 2023 21:46:06 -0400
X-Sender-Id: dreamhost|x-authsender|jidanni@HIDDEN
Received: from relay.mailchannels.net (localhost [127.0.0.1])
 by relay.mailchannels.net (Postfix) with ESMTP id A5B43500EDB
 for <bug-gnu-emacs@HIDDEN>; Sun,  2 Apr 2023 01:45:54 +0000 (UTC)
Received: from pdx1-sub0-mail-a295.dreamhost.com (unknown [127.0.0.6])
 (Authenticated sender: dreamhost)
 by relay.mailchannels.net (Postfix) with ESMTPA id 3CA09500D7D
 for <bug-gnu-emacs@HIDDEN>; Sun,  2 Apr 2023 01:45:54 +0000 (UTC)
ARC-Seal: i=1; s=arc-2022; d=mailchannels.net; t=1680399954; a=rsa-sha256;
 cv=none;
 b=bhOZYUcu84g1ktVrX1QcWYbZ5dbgH5OE2idfYr+/1ClknM7a6kDiKz3tMC1DykHrao03zX
 6w0BSLYvBYeW6p+VadMMezuPONRygINVvli4ApJTz2C6kDdnfLulU/Nkcg9/5wljMpu0WZ
 lTAAuWzcXHWs6oarfedHCWbwvRzXVvwJsZluI98gXCaBGyxahyHJ1PrmLYo+9pJuR9DX83
 kTpmSt3UcOEFl1TWgRKZA1HOUVLEVaBrRfmy281NnFeJ6RV6tkMA597+nqEYG12zxIpWmj
 1eNqG9io/xxqPB6mYjDFMRZV7sjq1aBVo+0GHYUUmCPrW8EuWmOZwkuSCZ4mAg==
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed;
 d=mailchannels.net; s=arc-2022; t=1680399954;
 h=from:from:reply-to:subject:subject:date:date:message-id:message-id:
 to:to:cc:mime-version:mime-version:content-type:content-type:
 dkim-signature; bh=UsjYyD5/JS0pkQUtDt+DQh5P8MKt5rvLuNsMZ3i+tG4=;
 b=1L4nGuiawWs23TfMuX6Pg+PS7hxgCJDNRzWcOoNH43SgXXMLQhWgd/weMyKO7W2vphlH+D
 y9lO4fBPBM6N8cYYQL7ApX5zCiuYT4Rn885HYpqRSUNZA3QCWUuDpUXy1d2hNe71e1GCt0
 A5zVpvLsWEWTQJ2EGIsuPgwCEB/3333Vhoj3tlAaYmawoRG7iK9NkrMb/y1gnn/WRZOKV4
 BpRZ9EyvVPANGkn7ifOf2ZrToDyqXR4QRyjtwToM177EG2Ev0Vn3BP5rpT0shOsGb6f9b2
 N8DbfSKD1NOGWtY+C9lFWhyGD81/0/dEphF4jnwIuV/VLCbGCH0EkWMXlMSV0Q==
ARC-Authentication-Results: i=1; rspamd-5468d68f6d-srkzh;
 auth=pass smtp.auth=dreamhost smtp.mailfrom=jidanni@HIDDEN
X-Sender-Id: dreamhost|x-authsender|jidanni@HIDDEN
X-MC-Relay: Neutral
X-MailChannels-SenderId: dreamhost|x-authsender|jidanni@HIDDEN
X-MailChannels-Auth-Id: dreamhost
X-Hook-Industry: 3a2934ea77b933f0_1680399954461_2796282415
X-MC-Loop-Signature: 1680399954461:1066779346
X-MC-Ingress-Time: 1680399954461
Received: from pdx1-sub0-mail-a295.dreamhost.com (pop.dreamhost.com
 [64.90.62.162]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384)
 by 100.107.49.229 (trex/6.7.2); Sun, 02 Apr 2023 01:45:54 +0000
Received: from jidanni.org (1-165-208-244.dynamic-ip.hinet.net [1.165.208.244])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 (Authenticated sender: jidanni@HIDDEN)
 by pdx1-sub0-mail-a295.dreamhost.com (Postfix) with ESMTPSA id 4Ppxgk0SHLz1H
 for <bug-gnu-emacs@HIDDEN>; Sat,  1 Apr 2023 18:45:54 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=jidanni.org;
 s=dreamhost; t=1680399954;
 bh=UsjYyD5/JS0pkQUtDt+DQh5P8MKt5rvLuNsMZ3i+tG4=;
 h=From:To:Subject:Date:Content-Type;
 b=rn7vRw6CYvWAhOso0OvEah8T2vq+KyOIOs6BnH/fepFszQzkad06FiaGSdbAuxvkD
 HwCrL88jqD9PnAepZLo4rOms/AOeodHzzzNm8qhtdG1InkPmLh5yxoSRUM5Oy6eQkt
 9WrX6hg8eoyHx0hcpsoK8JQCt3hQXrGdazA5t5OHZ0RUALYCm2KRJ+6Sq7KQVrp8zM
 zQxPAE2QwgpqCGkzfwX1Fl9rTfbvI3zagkYzOG6jhezRFdcrfQSdVaEx6x9ZsevkkM
 XMK5afWH0R6IoAU6kqsSlAVOJ/pej6rsR3dJ8lq6XW6J9y2xTKjIt51u/Dx3/vfTUY
 CRrz4/xuQKqNQ==
From: Dan Jacobson <jidanni@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: perl-mode bracket indentation distorted by label
Date: Sun, 02 Apr 2023 08:29:25 +0800
Message-ID: <87wn2vgm8q.5.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
Received-SPF: pass client-ip=23.83.222.35; envelope-from=jidanni@HIDDEN;
 helo=chocolate.ash.relay.mailchannels.net
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.4 (-)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.4 (--)

In perl mode, the indentation of the two closing brackets (solo item on
line) gets reduced by the LI:.

for my $l (@lines) {
  LI:
    for ( $l->{text} ) {
	next LI unless length;
	next LI if /^\S/;
  }
    for ( 0 .. $#zh ) {
	next unless $l->{ $zh[$_] };
	$l->{info} .= $l->{ $zh[$_] } . $en[$_];
  }
}
emacs-version "28.2"