diff options
Diffstat (limited to 'system')
| -rw-r--r-- | system/doc/top/src/erl_html_tools.erl | 2 | ||||
| -rw-r--r-- | system/doc/top/src/otp_man_index.erl | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/system/doc/top/src/erl_html_tools.erl b/system/doc/top/src/erl_html_tools.erl index 8a5c744128..c920245f94 100644 --- a/system/doc/top/src/erl_html_tools.erl +++ b/system/doc/top/src/erl_html_tools.erl @@ -212,6 +212,8 @@ get_app_dirs(Dir) -> lists:map(fun(File) -> {File, filename:join([Dir, File])} end, Files), lists:zf(fun is_app_with_doc/1, AFiles). +is_app_with_doc({"." ++ ADir, _APath}) -> + false; is_app_with_doc({ADir, APath}) -> case file:read_file_info(filename:join([APath, "info"])) of {ok, _FileInfo} -> diff --git a/system/doc/top/src/otp_man_index.erl b/system/doc/top/src/otp_man_index.erl index 78ecd8b954..0fdc531b37 100644 --- a/system/doc/top/src/otp_man_index.erl +++ b/system/doc/top/src/otp_man_index.erl @@ -117,6 +117,8 @@ get_app_dirs(Dir) -> lists:map(fun(File) -> {File, filename:join([Dir, File])} end, Files), lists:zf(fun is_app_with_doc/1, AFiles). +is_app_with_doc({"." ++ ADir, _APath}) -> + false; is_app_with_doc({ADir, APath}) -> case file:read_file_info(filename:join([APath, "info"])) of {ok, _FileInfo} -> |