From: Mark-Jason Dominus <mjd@plover.com>
Date: Fri, 30 Oct 1998 14:24:23 +0000 (-0500)
Subject: PATCH: (5.005_02)  a2p should use `chomp' instead of `chop'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7bdaec8ae6f8e5acca5224ad0e011cbd98e7875e;p=p5sagit%2Fp5-mst-13.2.git

PATCH: (5.005_02)  a2p should use `chomp' instead of `chop'

	Message-Id: <19981030192423.27276.qmail@plover.com>

p4raw-id: //depot/perl@2151
---

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)) {