diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-12-08 22:00:30 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-12-08 22:00:30 +0200 |
| commit | d870c62382223503e9dd75436b6bf6db8d2be2d2 (patch) | |
| tree | 662c3576c8b787904cf883706d4a6bae97a8e8bc /awklib/eg/lib/readable.awk | |
| parent | 071f0732801ed668956462649b9ee10cb6794599 (diff) | |
| download | egawk-d870c62382223503e9dd75436b6bf6db8d2be2d2.tar.gz egawk-d870c62382223503e9dd75436b6bf6db8d2be2d2.tar.bz2 egawk-d870c62382223503e9dd75436b6bf6db8d2be2d2.zip | |
More doc udates; functions chapter.
Diffstat (limited to 'awklib/eg/lib/readable.awk')
| -rw-r--r-- | awklib/eg/lib/readable.awk | 5 |
1 files changed, 3 insertions, 2 deletions
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] |