diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-27 14:12:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 22:37:45 +0000 |
| commit | f0670693ff29ac8dc3df00d73b858a9d736644ed (patch) | |
| tree | 8bbec927d4422331c4ad492ac366b541d861526d /toke.c | |
| parent | a5de3055c23e1cf83512f28ca751d687d2cbd7ef (diff) | |
| download | perl-f0670693ff29ac8dc3df00d73b858a9d736644ed.tar.gz | |
Re: [ID 19991001.003] sort(sub(arg)) misparsed as sort sub args
Message-ID: <20001227141244.A13344@deep-dark-truthful-mirror.perlhacker.org>
p4raw-id: //depot/perl@8239
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3915,10 +3915,10 @@ Perl_yylex(pTHX) /* If not a declared subroutine, it's an indirect object. */ /* (But it's an indir obj regardless for sort.) */ - if ((PL_last_lop_op == OP_SORT || - (!immediate_paren && (!gv || !GvCVu(gv)))) && + if ( !immediate_paren && (PL_last_lop_op == OP_SORT || + ((!gv || !GvCVu(gv)) && (PL_last_lop_op != OP_MAPSTART && - PL_last_lop_op != OP_GREPSTART)) + PL_last_lop_op != OP_GREPSTART)))) { PL_expect = (PL_last_lop == PL_oldoldbufptr) ? XTERM : XOPERATOR; goto bareword; |