From 7bdaec8ae6f8e5acca5224ad0e011cbd98e7875e Mon Sep 17 00:00:00 2001 From: Mark-Jason Dominus Date: Fri, 30 Oct 1998 09:24:23 -0500 Subject: [PATCH] PATCH: (5.005_02) a2p should use `chomp' instead of `chop' Message-Id: <19981030192423.27276.qmail@plover.com> p4raw-id: //depot/perl@2151 --- x2p/walk.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/x2p/walk.c b/x2p/walk.c index 0b40655..24b86aa 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)) { -- 2.7.4