From 95276f25769a0607cda50041169197d0522b98ff Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 2 Jul 2017 17:36:37 +1200
Subject: Lots of cleanup of awk scripts

Mostly inspired by suggestions from gawk --lint
---
 games/pks.awk | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'games')

diff --git a/games/pks.awk b/games/pks.awk
index 4c28625c..b71d2dc4 100644
--- a/games/pks.awk
+++ b/games/pks.awk
@@ -13,7 +13,9 @@ BEGIN {
     }
 
     # Seed the random number generator
-    "rnds 2>/dev/null" | getline seed
+    rnds = "rnds 2>/dev/null"
+    rnds | getline seed
+    close(rnds)
     if (length(seed))
         srand(seed + 0)
     else
-- 
cgit v1.2.3