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