From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: "Giuliano Procida" <giuliano.procida@googlemail.com>
Newsgroups: gmane.emacs.bugs
Subject: Re: perl-mode - fix syntax of anonymous sub prototypes
Date: Sat, 29 Mar 2008 08:43:28 +0000
Message-ID: <5c8016cf0803290143x34727c91laac78b676d598000@mail.gmail.com>
References: <5c8016cf0803281037q5c64bd21le5e3359ddadca955@mail.gmail.com>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
X-Trace: ger.gmane.org 1206780226 29510 80.91.229.12 (29 Mar 2008 08:43:46 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Sat, 29 Mar 2008 08:43:46 +0000 (UTC)
To: bug-gnu-emacs@gnu.org
Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Mar 29 09:44:17 2008
Return-path: <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geb-bug-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1JfWfe-0003zg-Ph
	for geb-bug-gnu-emacs@m.gmane.org; Sat, 29 Mar 2008 09:44:15 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1JfWf3-0003Pm-Bt
	for geb-bug-gnu-emacs@m.gmane.org; Sat, 29 Mar 2008 04:43:37 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1JfWey-0003PP-6D
	for bug-gnu-emacs@gnu.org; Sat, 29 Mar 2008 04:43:32 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1JfWev-0003PC-Mp
	for bug-gnu-emacs@gnu.org; Sat, 29 Mar 2008 04:43:30 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1JfWev-0003P8-Iu
	for bug-gnu-emacs@gnu.org; Sat, 29 Mar 2008 04:43:29 -0400
Original-Received: from fk-out-0910.google.com ([209.85.128.191])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <giuliano.procida@googlemail.com>) id 1JfWev-0005ri-9c
	for bug-gnu-emacs@gnu.org; Sat, 29 Mar 2008 04:43:29 -0400
Original-Received: by fk-out-0910.google.com with SMTP id 26so821481fkx.10
	for <bug-gnu-emacs@gnu.org>; Sat, 29 Mar 2008 01:43:28 -0700 (PDT)
Original-Received: by 10.78.188.13 with SMTP id l13mr12532931huf.0.1206780208160;
	Sat, 29 Mar 2008 01:43:28 -0700 (PDT)
Original-Received: by 10.78.198.16 with HTTP; Sat, 29 Mar 2008 01:43:28 -0700 (PDT)
In-Reply-To: <5c8016cf0803281037q5c64bd21le5e3359ddadca955@mail.gmail.com>
Content-Disposition: inline
X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 2)
X-BeenThere: bug-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Bug reports for GNU Emacs,
	the Swiss army knife of text editors" <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/bug-gnu-emacs>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org
Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.bugs:17759
Archived-At: <http://permalink.gmane.org/gmane.emacs.bugs/17759>

I have verified the problem against a recent Ubuntu snapshot.

GNU Emacs 23.0.60.1 (i486-pc-linux-gnu, GTK+ Version 2.12.9) of
2008-03-19 on vernadsky, modified by Debian

However, it looks like the latest HEAD has a completely different regexp.

    ;; Funny things in sub arg specifications like `sub myfunc ($$)'
    ;; Be careful not to match "sub { (...) ... }".
    ("\\<sub[[:space:]]+[^{}[:punct:][:space:]]+[[:space:]]*(\\([^)]+\\))"
1 '(1))

It is still wrong for anonymous subs. Should be (untested):

"\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"

Here is a simple test case.

#!/usr/bin/perl

use strict;
use warnings;

# the $ in the next line has syntax-table (1)
sub add ($) {
    my ($a) = @_;
    # the $ in the next line does not
    return sub ($) {
	my ($b) = @_;
	return $a+$b;
	# the brace on the next line will be misindented on TAB
    };
}

# the following line will also be misindented on TAB
print "1+2=", &{add(1)}(2), "\n";

Regards,
Giuliano Procida.