diff options
| author | Kriton Kyrimis <kyrimis@princeton.edu> | 1988-02-01 22:28:33 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-02-01 22:28:33 +0000 |
| commit | 2e1b3b7e9018b7d16d598adb631073672439d869 (patch) | |
| tree | 6ee91f55ef0c0cf0f9e15c0683ddfccd84c022be /spat.h | |
| parent | 9bb9d9f726fa55c70ed76abad9fe7c61d4eb4182 (diff) | |
| download | perl-2e1b3b7e9018b7d16d598adb631073672439d869.tar.gz | |
perl 1.0 patch 13: fix for faulty patch 12, plus random portability glitches
I botched patch #12, so that split(' ') only works on the first
line of input due to unintended interference by the optimization
that was added at the same time. Yes, I tested it, but only on
one line of input. *Sigh*
Some glitches have turned up on some of the rusty pig iron out there,
so here are some unglitchifications.
Diffstat (limited to 'spat.h')
| -rw-r--r-- | spat.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1,6 +1,9 @@ -/* $Header: spat.h,v 1.0 87/12/18 13:06:10 root Exp $ +/* $Header: spat.h,v 1.0.1.1 88/02/02 11:24:37 root Exp $ * * $Log: spat.h,v $ + * Revision 1.0.1.1 88/02/02 11:24:37 root + * patch13: added flag for stripping leading spaces on split. + * * Revision 1.0 87/12/18 13:06:10 root * Initial revision * @@ -20,6 +23,7 @@ struct scanpat { #define SPAT_USE_ONCE 2 /* use pattern only once per article */ #define SPAT_SCANFIRST 4 /* initial constant not anchored */ #define SPAT_SCANALL 8 /* initial constant is whole pat */ +#define SPAT_SKIPWHITE 16 /* skip leading whitespace for split */ EXT SPAT *spat_root; /* list of all spats */ EXT SPAT *curspat; /* what to do \ interps from */ |