diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-04-19 04:41:07 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-29 20:31:07 +0000 |
| commit | 0f5d0394b2f5b3a7ac4dba1b324a4ccfb7799a4b (patch) | |
| tree | df545c9af7332f34b3ee9daa5cb1ebd5a209c6ea /toke.c | |
| parent | 4801ca722fb86c6dd33d0230c35f5c5bdfc8d04a (diff) | |
| download | perl-0f5d0394b2f5b3a7ac4dba1b324a4ccfb7799a4b.tar.gz | |
buglet: sub a(;&) { } doesn't work
Message-ID: <20030418224107.GA2751@ratsnest.hole>
p4raw-id: //depot/perl@19367
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -4086,6 +4086,8 @@ Perl_yylex(pTHX) TERM(FUNC0SUB); if (strEQ(proto, "$")) OPERATOR(UNIOPSUB); + while (*proto == ';') + proto++; if (*proto == '&' && *s == '{') { sv_setpv(PL_subname, PL_curstash ? "__ANON__" : "__ANON__::__ANON__"); |