diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 1998-10-30 09:24:23 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 20:18:09 +0000 |
| commit | 7bdaec8ae6f8e5acca5224ad0e011cbd98e7875e (patch) | |
| tree | b532930dad47535e6502c60b4f7c251dc45f5367 /x2p | |
| parent | f5284f61fe8b13877bd529c3798fd763ed884651 (diff) | |
| download | perl-7bdaec8ae6f8e5acca5224ad0e011cbd98e7875e.tar.gz | |
PATCH: (5.005_02) a2p should use `chomp' instead of `chop'
Message-Id: <19981030192423.27276.qmail@plover.com>
p4raw-id: //depot/perl@2151
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/walk.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index 0b4065586b..24b86aab50 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -133,7 +133,7 @@ walk(int useval, int level, register int node, int *numericptr, int minprec) if (saw_FS && !const_FS) do_chop = TRUE; if (do_chop) { - str_cat(str,"chop;\t# strip record separator\n"); + str_cat(str,"chomp;\t# strip record separator\n"); tab(str,level); } if (do_split) @@ -190,7 +190,7 @@ walk(int useval, int level, register int node, int *numericptr, int minprec) i = 0; if (do_chop) { i++; - str_cat(str,"chop;\t# strip record separator\n"); + str_cat(str,"chomp;\t# strip record separator\n"); tab(str,level); } if (do_split && !(len & 1)) { |