diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-02-28 21:55:09 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-02-28 21:55:09 +0000 |
| commit | ac58e20f744208e9bff2115708a2f1c4e2e2175f (patch) | |
| tree | 1610ffeb1ed9dc24b5bf864c012a6d9fe7ac6720 /form.c | |
| parent | afd9f252e30d37007c653bd21680f0b5f6c32608 (diff) | |
| download | perl-ac58e20f744208e9bff2115708a2f1c4e2e2175f.tar.gz | |
perl 3.0 patch #11 patch #9, continued
See patch #9.
Diffstat (limited to 'form.c')
| -rw-r--r-- | form.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1,4 +1,4 @@ -/* $Header: form.c,v 3.0 89/10/18 15:17:26 lwall Locked $ +/* $Header: form.c,v 3.0.1.1 90/02/28 17:39:34 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: form.c,v $ + * Revision 3.0.1.1 90/02/28 17:39:34 lwall + * patch9: ... in format threw off subsequent field + * * Revision 3.0 89/10/18 15:17:26 lwall * 3.0 baseline * @@ -157,6 +160,7 @@ int sp; *d++ = '.'; *d++ = '.'; *d++ = '.'; + size -= 3; } while (*chophere && index(chopset,*chophere)) chophere++; |