From 662eb8ea3cdbafed16f2d3abb06c3a03e1c92526 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Thu, 18 Feb 2016 21:49:33 +0200
Subject: Fixes to sample programs in the doc.

---
 awklib/eg/prog/cut.awk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'awklib/eg/prog/cut.awk')

diff --git a/awklib/eg/prog/cut.awk b/awklib/eg/prog/cut.awk
index 080279bc..fd77910d 100644
--- a/awklib/eg/prog/cut.awk
+++ b/awklib/eg/prog/cut.awk
@@ -35,7 +35,7 @@ BEGIN {
                        " for delimiter\n", Optarg) > "/dev/stderr"
                 Optarg = substr(Optarg, 1, 1)
             }
-            FS = Optarg
+            fs = FS = Optarg
             OFS = FS
             if (FS == " ")    # defeat awk semantics
                 FS = "[ ]"
@@ -123,7 +123,7 @@ function set_charlist(    field, i, j, f, g, n, m, t,
     nfields = j - 1
 }
 {
-    if (by_fields && suppress && index($0, FS) == 0)
+    if (by_fields && suppress && index($0, fs) == 0)
         next
 
     for (i = 1; i <= nfields; i++) {
-- 
cgit v1.2.3