GNU bug report logs - #36420
perl-mode: apostrophe in sub name ruins colors

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

Received: (at 36420) by debbugs.gnu.org; 8 Jul 2019 23:19:24 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon Jul 08 19:19:24 2019
Received: from localhost ([127.0.0.1]:59942 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1hkcup-0003MG-Qu
	for submit <at> debbugs.gnu.org; Mon, 08 Jul 2019 19:19:24 -0400
Received: from quimby.gnus.org ([80.91.231.51]:35482)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <larsi@HIDDEN>) id 1hkcuo-0003M8-Du
 for 36420 <at> debbugs.gnu.org; Mon, 08 Jul 2019 19:19:22 -0400
Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=marnie)
 by quimby.gnus.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.89) (envelope-from <larsi@HIDDEN>)
 id 1hkcuk-00069B-WE; Tue, 09 Jul 2019 01:19:21 +0200
From: Lars Ingebrigtsen <larsi@HIDDEN>
To: =?utf-8?B?56mN5Li55bC8?= Dan Jacobson <jidanni@HIDDEN>
Subject: Re: bug#36420: perl-mode: apostrophe in sub name ruins colors
References: <8736jtreu8.5.fsf@HIDDEN>
Date: Tue, 09 Jul 2019 01:19:18 +0200
In-Reply-To: <8736jtreu8.5.fsf@HIDDEN> (=?utf-8?B?IuepjeS4ueWwvA==?=
 Dan Jacobson"'s message of "Fri, 28 Jun 2019 21:58:55 +0800")
Message-ID: <871rz015e1.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org",
 has NOT identified this incoming email as spam.  The original
 message has been attached to this so you can view it or label
 similar future email.  If you have any questions, see
 @@CONTACT_ADDRESS@@ for details.
 
 Content preview:  積丹尼 Dan Jacobson <jidanni@HIDDEN> writes: > All
    the lines after the main'ttfmod are in the wrong color. I can confirm that
    this bug is still present in Emacs 27. 
 
 Content analysis details:   (-2.9 points, 5.0 required)
 
  pts rule name              description
 ---- ---------------------- --------------------------------------------------
 -1.0 ALL_TRUSTED            Passed through trusted hosts only via SMTP
 -1.9 BAYES_00               BODY: Bayes spam probability is 0 to 1%
                             [score: 0.0000]
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 36420
Cc: 36420 <at> debbugs.gnu.org
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: -1.0 (-)

=E7=A9=8D=E4=B8=B9=E5=B0=BC Dan Jacobson <jidanni@HIDDEN> writes:

> All the lines after the main'ttfmod are in the wrong color.

I can confirm that this bug is still present in Emacs 27.

--=20
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

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

Received: (at submit) by debbugs.gnu.org; 28 Jun 2019 15:00:53 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jun 28 11:00:52 2019
Received: from localhost ([127.0.0.1]:42786 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1hgsMu-0006dF-DB
	for submit <at> debbugs.gnu.org; Fri, 28 Jun 2019 11:00:52 -0400
Received: from lists.gnu.org ([209.51.188.17]:53130)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <jidanni@HIDDEN>) id 1hgsMr-0006aN-Ct
 for submit <at> debbugs.gnu.org; Fri, 28 Jun 2019 11:00:50 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:49224)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <jidanni@HIDDEN>) id 1hgsMo-0000s4-Rg
 for bug-gnu-emacs@HIDDEN; Fri, 28 Jun 2019 11:00:49 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FROM_EXCESS_BASE64,
 RCVD_IN_DNSWL_NONE,URIBL_BLOCKED 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 1hgsMj-0003HK-3j
 for bug-gnu-emacs@HIDDEN; Fri, 28 Jun 2019 11:00:44 -0400
Received: from crocodile.birch.relay.mailchannels.net ([23.83.209.45]:47570)
 by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <jidanni@HIDDEN>) id 1hgsMh-00039V-0k
 for bug-gnu-emacs@HIDDEN; Fri, 28 Jun 2019 11:00:40 -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 E37EC22C9B
 for <bug-gnu-emacs@HIDDEN>; Fri, 28 Jun 2019 15:00:32 +0000 (UTC)
Received: from pdx1-sub0-mail-a60.g.dreamhost.com
 (100-96-14-97.trex.outbound.svc.cluster.local [100.96.14.97])
 (Authenticated sender: dreamhost)
 by relay.mailchannels.net (Postfix) with ESMTPA id 53C0722CDD
 for <bug-gnu-emacs@HIDDEN>; Fri, 28 Jun 2019 15:00:32 +0000 (UTC)
X-Sender-Id: dreamhost|x-authsender|jidanni@HIDDEN
Received: from pdx1-sub0-mail-a60.g.dreamhost.com ([TEMPUNAVAIL].
 [64.90.62.162]) (using TLSv1.2 with cipher DHE-RSA-AES256-GCM-SHA384)
 by 0.0.0.0:2500 (trex/5.17.2); Fri, 28 Jun 2019 15:00:32 +0000
X-MC-Relay: Neutral
X-MailChannels-SenderId: dreamhost|x-authsender|jidanni@HIDDEN
X-MailChannels-Auth-Id: dreamhost
X-Squirrel-Share: 74a8b8a90d6924ff_1561734032627_3778492406
X-MC-Loop-Signature: 1561734032627:2324247493
X-MC-Ingress-Time: 1561734032627
Received: from pdx1-sub0-mail-a60.g.dreamhost.com (localhost [127.0.0.1])
 by pdx1-sub0-mail-a60.g.dreamhost.com (Postfix) with ESMTP id ABBA183B23
 for <bug-gnu-emacs@HIDDEN>; Fri, 28 Jun 2019 08:00:26 -0700 (PDT)
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=m/q8uenQ4Cigqeud3LucKlVpPmA=; b=DzPhtOAVOBGYBpVV
 Oe7GNQFs+a1wPFFtg177//7Yn0tziX6nKVoMUwKXQ8l3NLfrTOc/jv7gR3Rdvclk
 8KqnkzggmeZdphSKIEJ0Xpq9LaySCLve8Vm7dw9f9KPVh5EUDFdT93QUywIX0Fdw
 1sD3XWq6h5UXC+qN6B2R0U7jRfo=
Received: from jidanni.org (114-41-9-196.dynamic-ip.hinet.net [114.41.9.196])
 (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-a60.g.dreamhost.com (Postfix) with ESMTPSA id B1B5F83B30
 for <bug-gnu-emacs@HIDDEN>; Fri, 28 Jun 2019 08:00:25 -0700 (PDT)
X-DH-BACKEND: pdx1-sub0-mail-a60
From: =?utf-8?B?56mN5Li55bC8?= Dan Jacobson <jidanni@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: perl-mode: apostrophe in sub name ruins colors
Date: Fri, 28 Jun 2019 21:58:55 +0800
Message-ID: <8736jtreu8.5.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
X-VR-OUT-STATUS: OK
X-VR-OUT-SCORE: 0
X-VR-OUT-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgeduvddrvddtgdekiecutefuodetggdotefrodftvfcurfhrohhfihhlvgemucggtfgfnhhsuhgsshgtrhhisggvpdfftffgtefojffquffvnecuuegrihhlohhuthemuceftddtnecunecujfgurhephffvufffkfggtgesthdtredttddtjeenucfhrhhomhepnjjnnjcuffgrnhculfgrtghosghsohhnuceojhhiuggrnhhnihesjhhiuggrnhhnihdrohhrgheqnecukfhppeduudegrdeguddrledrudelieenucfrrghrrghmpehmohguvgepshhmthhppdhhvghlohepjhhiuggrnhhnihdrohhrghdpihhnvghtpeduudegrdeguddrledrudeliedprhgvthhurhhnqdhprghthheppeeruhhtfhdqkeerueerheeimhfphefnihehhegsveekreepucffrghnucflrggtohgsshhonhcuoehjihgurghnnhhisehjihgurghnnhhirdhorhhgqedpmhgrihhlfhhrohhmpehjihgurghnnhhisehjihgurghnnhhirdhorhhgpdhnrhgtphhtthhopegsuhhgqdhgnhhuqdgvmhgrtghssehgnhhurdhorhhgnecuvehluhhsthgvrhfuihiivgepud
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Received-From: 23.83.209.45
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 (--)

All the lines after the main'ttfmod are in the wrong color.

#       Title:      TTFMOD.PL
#       Author:     M. Hosken
package ttfmod;

sub main'ttfmod {
    local($infile, $outfile, *fns, @must) = @_;

    # open files as binary.  Notice OUTFILE is opened for update not just write
    open(INFILE, "$infile") || die "Unable top open \"$infile\" for reading";
    binmode INFILE;
    open(OUTFILE, "+>$outfile") || die "Unable to open \"$outfile\" for writing";
    #....
}