GNU bug report logs - #34360
perl-mode doesn't respect certain EOF blocks

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

Received: (at submit) by debbugs.gnu.org; 7 Feb 2019 01:54:09 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Feb 06 20:54:09 2019
Received: from localhost ([127.0.0.1]:36418 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1grYtE-0002kU-O5
	for submit <at> debbugs.gnu.org; Wed, 06 Feb 2019 20:54:08 -0500
Received: from eggs.gnu.org ([209.51.188.92]:58730)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <jidanni@HIDDEN>) id 1grYtC-0002jx-9m
 for submit <at> debbugs.gnu.org; Wed, 06 Feb 2019 20:54:07 -0500
Received: from lists.gnu.org ([209.51.188.17]:32936)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <jidanni@HIDDEN>) id 1grYt6-0000R9-T2
 for submit <at> debbugs.gnu.org; Wed, 06 Feb 2019 20:54:00 -0500
Received: from eggs.gnu.org ([209.51.188.92]:44868)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <jidanni@HIDDEN>) id 1grYt5-00009c-Ta
 for bug-gnu-emacs@HIDDEN; Wed, 06 Feb 2019 20:54:00 -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 1grYt5-0000Pi-1J
 for bug-gnu-emacs@HIDDEN; Wed, 06 Feb 2019 20:53:59 -0500
Received: from otter.birch.relay.mailchannels.net ([23.83.209.139]:24773)
 by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <jidanni@HIDDEN>) id 1grYt4-0000NU-Ir
 for bug-gnu-emacs@HIDDEN; Wed, 06 Feb 2019 20:53:58 -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 AFBB928357B
 for <bug-gnu-emacs@HIDDEN>; Thu,  7 Feb 2019 01:53:55 +0000 (UTC)
Received: from pdx1-sub0-mail-a74.g.dreamhost.com (unknown [100.96.26.166])
 (Authenticated sender: dreamhost)
 by relay.mailchannels.net (Postfix) with ESMTPA id 78E1F2839FC
 for <bug-gnu-emacs@HIDDEN>; Thu,  7 Feb 2019 01:53:55 +0000 (UTC)
X-Sender-Id: dreamhost|x-authsender|jidanni@HIDDEN
Received: from pdx1-sub0-mail-a74.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); Thu, 07 Feb 2019 01:53:55 +0000
X-MC-Relay: Neutral
X-MailChannels-SenderId: dreamhost|x-authsender|jidanni@HIDDEN
X-MailChannels-Auth-Id: dreamhost
X-Lyrical-Snatch: 15cf112f584cef6c_1549504435583_1859022677
X-MC-Loop-Signature: 1549504435583:3174246251
X-MC-Ingress-Time: 1549504435583
Received: from pdx1-sub0-mail-a74.g.dreamhost.com (localhost [127.0.0.1])
 by pdx1-sub0-mail-a74.g.dreamhost.com (Postfix) with ESMTP id 278867F170
 for <bug-gnu-emacs@HIDDEN>; Wed,  6 Feb 2019 17:53:55 -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=3uELy/JU28UUOMdn1OUD74v3CZU=; b=ZLGdU7SG+DsS0TCo
 HBomrrX5cyQpVILBeaD9Lfrx22KnauXqUXHPRZb4VZQHnyvXjq/JntgBXgQ4s8HV
 54aHEm+N/c0vE/qR0L2AeRlo58EdR6o2GcXFj2HFlHU4B+MmyZhU0hjruMewnRD3
 xATH+6Nh1ZiiudKvmIDrNR+nTak=
Received: from jidanni.org (114-41-39-75.dynamic-ip.hinet.net [114.41.39.75])
 (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-a74.g.dreamhost.com (Postfix) with ESMTPSA id BF6507F16F
 for <bug-gnu-emacs@HIDDEN>; Wed,  6 Feb 2019 17:53:54 -0800 (PST)
X-DH-BACKEND: pdx1-sub0-mail-a74
From: =?utf-8?B?56mN5Li55bC8?= Dan Jacobson <jidanni@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: perl-mode doesn't respect certain EOF blocks
Date: Thu, 07 Feb 2019 09:51:33 +0800
Message-ID: <87r2ckwel6.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
X-VR-OUT-STATUS: OK
X-VR-OUT-SCORE: 0
X-VR-OUT-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgedtledrkeelgdefiecutefuodetggdotefrodftvfcurfhrohhfihhlvgemucggtfgfnhhsuhgsshgtrhhisggvpdfftffgtefojffquffvnecuuegrihhlohhuthemuceftddtnecunecujfgurhephffvufffkfggtgesthdtredttddtjeenucfhrhhomhepnjjnnjcuffgrnhculfgrtghosghsohhnuceojhhiuggrnhhnihesjhhiuggrnhhnihdrohhrgheqnecukfhppeduudegrdeguddrfeelrdejheenucfrrghrrghmpehmohguvgepshhmthhppdhhvghlohepjhhiuggrnhhnihdrohhrghdpihhnvghtpeduudegrdeguddrfeelrdejhedprhgvthhurhhnqdhprghthheppeeruhhtfhdqkeerueerheeimhfphefnihehhegsveekreepucffrghnucflrggtohgsshhonhcuoehjihgurghnnhhisehjihgurghnnhhirdhorhhgqedpmhgrihhlfhhrohhmpehjihgurghnnhhisehjihgurghnnhhirdhorhhgpdhnrhgtphhtthhopegsuhhgqdhgnhhuqdgvmhgrtghssehgnhhurdhorhhgnecuvehluhhsthgvrhfuihiivgepud
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Received-From: 23.83.209.139
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-Spam-Score: 1.0 (+)
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.0 (/)

Here perl-mode insists on moving my EOF block away from the margin as if
it needed to be indented. Type TAB on such lines to check.

for ( @{ $p->{result_data}->{channels} } ) {
    printf <<EOF,
%d new messages in https://example.nd/example/%d/chat/%s
EOF
      $_->{new_message_count}, $_->{example}->{example_no}, $_->{channel_id};
}

emacs-version "26.1"

(True, the user could also do printf "some
long
paragraph" too as a simpler working way.)