From f006165d77037b99e205496d8b79cb80e9f280c0 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Thu, 31 May 2018 12:57:02 +0300
Subject: Further fixes to extract.awk.

---
 awklib/eg/prog/extract.awk | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/awklib/eg/prog/extract.awk b/awklib/eg/prog/extract.awk
index ff598e8e..0e9bcca3 100644
--- a/awklib/eg/prog/extract.awk
+++ b/awklib/eg/prog/extract.awk
@@ -30,7 +30,7 @@ BEGIN    { IGNORECASE = 1 }
     }
     if ($3 != curfile) {
         if (curfile != "")
-            filelist[curfile]++     # save to close later
+            filelist[curfile] = 1   # save to close later
         curfile = $3
     }
 
@@ -61,8 +61,9 @@ BEGIN    { IGNORECASE = 1 }
     }
 }
 END {
-    for (f in filelist)
-        close(filelist[f])
+    close(curfile)          # close the last one
+    for (f in filelist)     # close all the rest
+        close(f)
 }
 function unexpected_eof()
 {
-- 
cgit v1.2.3