diff options
| author | Peter Andersson <[email protected]> | 2016-09-14 13:32:04 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2016-09-14 13:32:04 +0200 |
| commit | 8ba70d0bdb2ee8718801bac0ca91f4aaac73a36b (patch) | |
| tree | f4883d4cf973636a91c7cd1b27eb776d64ac6045 /lib/kernel/src/code_server.erl | |
| parent | 3f8eeea4a291060a25bcc7d6a9f5d09e18cc9aa4 (diff) | |
| parent | 356338ad69008558cc2be1bd57fe6caa10c04fe1 (diff) | |
| download | otp-8ba70d0bdb2ee8718801bac0ca91f4aaac73a36b.tar.gz otp-8ba70d0bdb2ee8718801bac0ca91f4aaac73a36b.tar.bz2 otp-8ba70d0bdb2ee8718801bac0ca91f4aaac73a36b.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/kernel/src/code_server.erl')
| -rw-r--r-- | lib/kernel/src/code_server.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/kernel/src/code_server.erl b/lib/kernel/src/code_server.erl index 3f220f4a6c..29c8856a42 100644 --- a/lib/kernel/src/code_server.erl +++ b/lib/kernel/src/code_server.erl @@ -811,7 +811,13 @@ clear_namedb([], _) -> %% Dir must be a complete pathname (not only a name). insert_dir(Dir, Db) -> Splitted = filename:split(Dir), - Name = get_name_from_splitted(Splitted), + case get_name_from_splitted(Splitted) of + Name when Name /= "ebin", Name /= "." -> + Name; + _ -> + SplittedAbsName = filename:split(absname(Dir)), + Name = get_name_from_splitted(SplittedAbsName) + end, AppDir = filename:join(del_ebin_1(Splitted)), do_insert_name(Name, AppDir, Db). @@ -952,6 +958,10 @@ del_ebin_1([Parent,App,"ebin"]) -> [Archive] end end; +del_ebin_1(Path = [_App,"ebin"]) -> + del_ebin_1(filename:split(absname(filename:join(Path)))); +del_ebin_1(["ebin"]) -> + del_ebin_1(filename:split(absname("ebin"))); del_ebin_1([H|T]) -> [H|del_ebin_1(T)]; del_ebin_1([]) -> |