diff options
| author | Kriton Kyrimis <kyrimis@princeton.edu> | 1988-02-01 04:35:21 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-02-01 04:35:21 +0000 |
| commit | 9bb9d9f726fa55c70ed76abad9fe7c61d4eb4182 (patch) | |
| tree | b31ea68d7f4dc2e2d30b150698df92735e4c251a /x2p/a2p.h | |
| parent | 83b4785aebef542ad391e53b49c107fc5e1b4a58 (diff) | |
| download | perl-9bb9d9f726fa55c70ed76abad9fe7c61d4eb4182.tar.gz | |
perl 1.0 patch 12: scripts made by a2p doen't handle leading white space right on input
Awk ignores leading whitespace on split. Perl by default does not.
The a2p translator couldn't handle this. The fix is partly to a2p
and partly to perl. Perl now has a way to specify to split to
ignore leading white space as awk does. A2p now takes advantage of
that.
I also threw in an optimization that let's runtime patterns
compile just once if they are known to be constant, so that
split(' ') doesn't compile the pattern every time.
Diffstat (limited to 'x2p/a2p.h')
| -rw-r--r-- | x2p/a2p.h | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1,6 +1,9 @@ -/* $Header: a2p.h,v 1.0.1.1 88/01/26 09:52:30 root Exp $ +/* $Header: a2p.h,v 1.0.1.2 88/02/01 17:33:40 root Exp $ * * $Log: a2p.h,v $ + * Revision 1.0.1.2 88/02/01 17:33:40 root + * patch12: forgot to fix #define YYDEBUG; bug in a2p. + * * Revision 1.0.1.1 88/01/26 09:52:30 root * patch 5: a2p didn't use config.h. * @@ -226,7 +229,7 @@ EXT int expectterm INIT(TRUE); #ifdef DEBUGGING EXT int debug INIT(0); EXT int dlevel INIT(0); -#define YYDEBUG; +#define YYDEBUG 1 extern int yydebug; #endif |