diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-30 21:23:02 -0700 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-30 21:23:02 -0700 |
commit | 02e868874af2b01dfec60881716a36d2bb97328c (patch) | |
tree | c38c1431eab3a9ef715ff342fdba04ac06a76749 /test/readdir0.awk | |
parent | 796b586c1ddaf9427a5a1843bf5c9809521e9d27 (diff) | |
parent | d2262d743f156fcca499b0c1b1706717a686aaa2 (diff) | |
download | egawk-02e868874af2b01dfec60881716a36d2bb97328c.tar.gz egawk-02e868874af2b01dfec60881716a36d2bb97328c.tar.bz2 egawk-02e868874af2b01dfec60881716a36d2bb97328c.zip |
Merge branch 'master' into feature/fix-comments
Diffstat (limited to 'test/readdir0.awk')
-rw-r--r-- | test/readdir0.awk | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test/readdir0.awk b/test/readdir0.awk index 2b7674a4..012826ed 100644 --- a/test/readdir0.awk +++ b/test/readdir0.awk @@ -1,7 +1,6 @@ # NOTE: This program is not a generalized parser for the output of 'ls'. # It's job is to read the output of ls from the gawk source code directory, -# where we know there are no symbolic links, nor are there files with -# spaces in their file names, etc. +# where we know there are no files with spaces in their file names, etc. BEGIN { # analyze results from readdir extension while ((getline x < extout) > 0) { @@ -32,7 +31,10 @@ BEGIN { type_let = substr($0, 1, 1) if (type_let == "-") type_let = "f" - type[$NF] = type_let + if (type_let == "l") + type[$(NF-2)] = type_let + else + type[$NF] = type_let } close(longlist) |