vendor/misc-GNU/awk/3.1.0-fixed

1 files changed, 0 insertions, 16 deletions

diff --git a/contrib/awk/awklib/eg/lib/readable.awk b/contrib/awk/awklib/eg/lib/readable.awk
deleted file mode 100644
index 51705aea0a56..000000000000
--- a/contrib/awk/awklib/eg/lib/readable.awk
+++ /dev/null
@@ -1,16 +0,0 @@
-# readable.awk --- library file to skip over unreadable files
-#
-# Arnold Robbins, arnold@gnu.org, Public Domain
-# October 2000
-
-BEGIN {
-    for (i = 1; i < ARGC; i++) {
-        if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
-            || ARGV[i] == "-")
-            continue    # assignment or standard input
-        else if ((getline junk < ARGV[i]) < 0) # unreadable
-            delete ARGV[i]
-        else
-            close(ARGV[i])
-    }
-}