diff options
| author | Andrew Burt <isis!aburt> | 1988-01-23 14:57:57 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-01-23 14:57:57 +0000 |
| commit | 135863df38bea8d721a115b5d13e08b816104784 (patch) | |
| tree | d5947cc711fcade4b0dd8528ee65a70a5d5d189d /perly.c | |
| parent | 36ce8bec6e5bbc05c8d60ee17f105fc8b751cada (diff) | |
| download | perl-135863df38bea8d721a115b5d13e08b816104784.tar.gz | |
perl 1.0 patch 2: Various portability fixes.
Some things didn't work right on System V and Pyramids.
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1,6 +1,9 @@ -char rcsid[] = "$Header: perly.c,v 1.0.1.1 88/01/21 21:25:57 root Exp $"; +char rcsid[] = "$Header: perly.c,v 1.0.1.2 88/01/24 00:06:03 root Exp $"; /* * $Log: perly.c,v $ + * Revision 1.0.1.2 88/01/24 00:06:03 root + * patch 2: s/(abc)/\1/ grandfathering didn't work right. + * * Revision 1.0.1.1 88/01/21 21:25:57 root * Now uses CPP and CPPMINUS symbols from config.h. * @@ -1646,7 +1649,7 @@ register char *s; *d <<= 3; *d += *s++ - '0'; } - else if (!index('`"',term)) { /* oops, a subpattern */ + else if (!index("`\"",term)) { /* oops, a subpattern */ s--; goto defchar; } |