diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-26 01:50:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-26 01:50:37 +0000 |
| commit | 15f0808c5d67b362ecb8b59cf6a3ed61fbf51bbf (patch) | |
| tree | ff177e068b02c6f2f8b1eae3627b3eb4459640e0 /toke.c | |
| parent | 0e4ced382cb959db083cda30b8dbdae68933842a (diff) | |
| download | perl-15f0808c5d67b362ecb8b59cf6a3ed61fbf51bbf.tar.gz | |
[win32] Fix for C<sort 'foo'...> bug:
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Message-Id: <199711011946.OAA18882@aatma.engin.umich.edu>
Subject: [PATCH] Re: Sort grammar bug
Date: Sat, 01 Nov 1997 14:46:35 -0500
------
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Message-Id: <199711021247.MAA01743@crypt.compulink.co.uk>
Subject: Re: Sort grammar bug
Date: Sun, 02 Nov 1997 12:47:51 +0000
p4raw-id: //depot/win32/perl@312
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -500,7 +500,7 @@ force_next(I32 type) } static char * -force_word(register char *start, int token, int check_keyword, int allow_pack, int allow_tick) +force_word(register char *start, int token, int check_keyword, int allow_pack, int allow_initial_tick) { register char *s; STRLEN len; @@ -509,7 +509,7 @@ force_word(register char *start, int token, int check_keyword, int allow_pack, i s = start; if (isIDFIRST(*s) || (allow_pack && *s == ':') || - (allow_tick && *s == '\'') ) + (allow_initial_tick && *s == '\'') ) { s = scan_word(s, tokenbuf, sizeof tokenbuf, allow_pack, &len); if (check_keyword && keyword(tokenbuf, len)) @@ -3542,7 +3542,7 @@ yylex(void) if (*s == ';' || *s == ')') /* probably a close */ croak("sort is now a reserved word"); expect = XTERM; - s = force_word(s,WORD,TRUE,TRUE,TRUE); + s = force_word(s,WORD,TRUE,TRUE,FALSE); LOP(OP_SORT,XREF); case KEY_split: |