diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
| commit | ae98613044a1084886d80b8283b25bad38cfd171 (patch) | |
| tree | 7dfe17f2ae5835a17db41a0bb4d7ef903d6ff3d9 /x2p/walk.c | |
| parent | bf38876a182e0df9dd73362f56cf0ab8b43aa789 (diff) | |
| download | perl-ae98613044a1084886d80b8283b25bad38cfd171.tar.gz | |
perl 3.0 patch #4 Patch #2 continued
Diffstat (limited to 'x2p/walk.c')
| -rw-r--r-- | x2p/walk.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index 959527de3a..d0ea34112c 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -1,4 +1,4 @@ -/* $Header: walk.c,v 3.0 89/10/18 15:35:48 lwall Locked $ +/* $Header: walk.c,v 3.0.1.1 89/11/11 05:09:33 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: walk.c,v $ + * Revision 3.0.1.1 89/11/11 05:09:33 lwall + * patch2: in a2p, awk script with no line actions still needs main loop + * * Revision 3.0 89/10/18 15:35:48 lwall * 3.0 baseline * @@ -139,7 +142,7 @@ int minprec; /* minimum precedence without parens */ str_cat(str,"continue {\n $FNRbase = $. if eof;\n}\n"); } else - str_cat(str,"# (no line actions)\n"); + str_cat(str,"while (<>) { } # (no line actions)\n"); if (ops[node+4].ival) { realexit = TRUE; str_cat(str,"\n"); |