diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-04-11 20:32:32 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-04-11 20:32:32 +0000 |
| commit | 35c8bce761056f470189967ccc824e04467151df (patch) | |
| tree | 9ee76bba81900f86af5a1070bdd69d3987201c52 /toke.c | |
| parent | 1c3d792e8fc9c2a36edfbd6c01156ef7e635040f (diff) | |
| download | perl-35c8bce761056f470189967ccc824e04467151df.tar.gz | |
perl 4.0 patch 2: Patch 1 continued
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -1,4 +1,4 @@ -/* $Header: toke.c,v 4.0 91/03/20 01:42:14 lwall Locked $ +/* $RCSfile: toke.c,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:18:18 $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: toke.c,v $ + * Revision 4.0.1.1 91/04/12 09:18:18 lwall + * patch1: perl -de "print" wouldn't stop at the first statement + * * Revision 4.0 91/03/20 01:42:14 lwall * 4.0 baseline. * @@ -74,7 +77,7 @@ void checkcomma(); /* This does similarly for list operators, merely by pretending that the * paren came before the listop rather than after. */ -#define LOP(f) return(*s == '(' || (s = skipspace(s), *s == '(') ? \ +#define LOP(f) return(CLINE, *s == '(' || (s = skipspace(s), *s == '(') ? \ (*s = META('('), bufptr = oldbufptr, '(') : \ (yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP)) /* grandfather return to old style */ @@ -118,6 +121,7 @@ lop(f,s) int f; char *s; { + CLINE; if (*s != '(') s = skipspace(s); if (*s == '(') { |