diff options
| author | Unknown Ricoh Contributor II <maeda@src.ricoh.co.jp> | 1998-11-24 19:37:45 +0900 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-27 14:33:44 +0000 |
| commit | 7056ecde998641870cea46de6e48f076abfdde78 (patch) | |
| tree | 9be5ee4b12eaa372369f0f8b279c1e7e51335b3d /pp_ctl.c | |
| parent | 3967c732803d47eb9e3dd99812f099d7f15ec379 (diff) | |
| download | perl-7056ecde998641870cea46de6e48f076abfdde78.tar.gz | |
format "..." bug
Message-Id: <199811240137.KAA05867@luna.src.ricoh.co.jp>
p4raw-id: //depot/perl@2323
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -617,7 +617,13 @@ PP(pp_formline) break; case FF_MORE: - if (itemsize) { + s = chophere; + send = item + len; + if (chopspace) { + while (*s && isSPACE(*s) && s < send) + s++; + } + if (s < send) { arg = fieldsize - itemsize; if (arg) { fieldsize -= arg; |