GNU bug report logs - #34245
perl mode aligns code with comments

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

Received: (at submit) by debbugs.gnu.org; 29 Jan 2019 15:29:32 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Tue Jan 29 10:29:32 2019
Received: from localhost ([127.0.0.1]:50690 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1goVKC-0001IE-HC
	for submit <at> debbugs.gnu.org; Tue, 29 Jan 2019 10:29:31 -0500
Received: from eggs.gnu.org ([209.51.188.92]:45055)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <jidanni@HIDDEN>) id 1goVJx-0001HR-UF
 for submit <at> debbugs.gnu.org; Tue, 29 Jan 2019 10:29:17 -0500
Received: from lists.gnu.org ([209.51.188.17]:47376)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <jidanni@HIDDEN>) id 1goVJg-0007Yz-KM
 for submit <at> debbugs.gnu.org; Tue, 29 Jan 2019 10:28:50 -0500
Received: from eggs.gnu.org ([209.51.188.92]:54955)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <jidanni@HIDDEN>) id 1goVJD-0000zZ-1T
 for bug-gnu-emacs@HIDDEN; Tue, 29 Jan 2019 10:28:39 -0500
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: *
X-Spam-Status: No, score=1.8 required=5.0 tests=BAYES_50,FROM_EXCESS_BASE64,
 RCVD_IN_DNSWL_NONE autolearn=disabled version=3.3.2
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <jidanni@HIDDEN>) id 1goVIH-00076C-E7
 for bug-gnu-emacs@HIDDEN; Tue, 29 Jan 2019 10:27:27 -0500
Received: from quail.birch.relay.mailchannels.net ([23.83.209.151]:46819)
 by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <jidanni@HIDDEN>) id 1goVIH-000722-0j
 for bug-gnu-emacs@HIDDEN; Tue, 29 Jan 2019 10:27:21 -0500
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 09AD4426AF
 for <bug-gnu-emacs@HIDDEN>; Tue, 29 Jan 2019 15:11:26 +0000 (UTC)
Received: from pdx1-sub0-mail-a69.g.dreamhost.com (unknown [100.96.30.62])
 (Authenticated sender: dreamhost)
 by relay.mailchannels.net (Postfix) with ESMTPA id C77E4445A7
 for <bug-gnu-emacs@HIDDEN>; Tue, 29 Jan 2019 15:11:25 +0000 (UTC)
X-Sender-Id: dreamhost|x-authsender|jidanni@HIDDEN
Received: from pdx1-sub0-mail-a69.g.dreamhost.com (pop.dreamhost.com
 [64.90.62.162]) (using TLSv1.2 with cipher DHE-RSA-AES256-GCM-SHA384)
 by 0.0.0.0:2500 (trex/5.16.2); Tue, 29 Jan 2019 15:11:25 +0000
X-MC-Relay: Neutral
X-MailChannels-SenderId: dreamhost|x-authsender|jidanni@HIDDEN
X-MailChannels-Auth-Id: dreamhost
X-Tank-Cold: 3749902835116148_1548774685907_4252732921
X-MC-Loop-Signature: 1548774685907:948274773
X-MC-Ingress-Time: 1548774685906
Received: from pdx1-sub0-mail-a69.g.dreamhost.com (localhost [127.0.0.1])
 by pdx1-sub0-mail-a69.g.dreamhost.com (Postfix) with ESMTP id 53E8A7FFF4
 for <bug-gnu-emacs@HIDDEN>; Tue, 29 Jan 2019 07:11:25 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=jidanni.org; h=from:to
 :subject:date:message-id:mime-version:content-type; s=
 jidanni.org; bh=t9M7TZr4bDwSFZjcZO0VrbYSn+E=; b=BzUz03TBAlpqGKN7
 uCDhAlv6XxX02q6XeLh4BJjYv9k1/xUhdoyTa6TfW1bqsrfDuOpW4NKcrnVkne2/
 cKy4jxvlvqx66QajFM0YMorYpc5qVXT73l98zVYgmcEYaYaTYHY+ljgOGBqF+kDH
 v/5p1GmMdRBiP3k/8XjYsli/97w=
Received: from jidanni.org (114-41-35-133.dynamic-ip.hinet.net [114.41.35.133])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (No client certificate requested)
 (Authenticated sender: jidanni@HIDDEN)
 by pdx1-sub0-mail-a69.g.dreamhost.com (Postfix) with ESMTPSA id F25BC7FFEC
 for <bug-gnu-emacs@HIDDEN>; Tue, 29 Jan 2019 07:11:21 -0800 (PST)
X-DH-BACKEND: pdx1-sub0-mail-a69
From: =?utf-8?B?56mN5Li55bC8?= Dan Jacobson <jidanni@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: perl mode aligns code with comments
Date: Tue, 29 Jan 2019 22:56:21 +0800
Message-ID: <871s4vjywa.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
X-VR-OUT-STATUS: OK
X-VR-OUT-SCORE: 0
X-VR-OUT-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgedtledrjedvgdejfecutefuodetggdotefrodftvfcurfhrohhfihhlvgemucggtfgfnhhsuhgsshgtrhhisggvpdfftffgtefojffquffvnecuuegrihhlohhuthemuceftddtnecunecujfgurhephffvufffkfggtgesthdtredttddtjeenucfhrhhomhepnjjnnjcuffgrnhculfgrtghosghsohhnuceojhhiuggrnhhnihesjhhiuggrnhhnihdrohhrgheqnecukfhppeduudegrdeguddrfeehrddufeefnecurfgrrhgrmhepmhhouggvpehsmhhtphdphhgvlhhopehjihgurghnnhhirdhorhhgpdhinhgvthepuddugedrgedurdefhedrudeffedprhgvthhurhhnqdhprghthheppeeruhhtfhdqkeerueerheeimhfphefnihehhegsveekreepucffrghnucflrggtohgsshhonhcuoehjihgurghnnhhisehjihgurghnnhhirdhorhhgqedpmhgrihhlfhhrohhmpehjihgurghnnhhisehjihgurghnnhhirdhorhhgpdhnrhgtphhtthhopegsuhhgqdhgnhhuqdgvmhgrtghssehgnhhurdhorhhgnecuvehluhhsthgvrhfuihiivgeptd
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Received-From: 23.83.209.151
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-Spam-Score: 0.1 (/)
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: -0.9 (/)

In perl mode, a TAB on the second line below causes

my @genres = (         #["match", "BUT NOT"]
		       ["Rainbow.*Taiwan|Taiwan.*Rainbow"],

But wiser would be like perltidy does:

my @genres = (                      #["match", "BUT NOT"]
    ["Rainbow.*Taiwan|Taiwan.*Rainbow"],