From d870c62382223503e9dd75436b6bf6db8d2be2d2 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Wed, 8 Dec 2010 22:00:30 +0200
Subject: More doc udates; functions chapter.

---
 awklib/eg/lib/readable.awk | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'awklib/eg/lib/readable.awk')

diff --git a/awklib/eg/lib/readable.awk b/awklib/eg/lib/readable.awk
index dbbab578..6942dcca 100644
--- a/awklib/eg/lib/readable.awk
+++ b/awklib/eg/lib/readable.awk
@@ -2,11 +2,12 @@
 #
 # Arnold Robbins, arnold@skeeve.com, Public Domain
 # October 2000
+# December 2010
 
 BEGIN {
     for (i = 1; i < ARGC; i++) {
-        if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
-            || ARGV[i] == "-")
+        if (ARGV[i] ~ /^[[:alpha:]_][[:alnum:]_]*=.*/ \
+            || ARGV[i] == "-" || ARGV[i] == "/dev/stdin")
             continue    # assignment or standard input
         else if ((getline junk < ARGV[i]) < 0) # unreadable
             delete ARGV[i]
-- 
cgit v1.2.3