Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:lenovo-lico:lico-dep:5.1:el7
erlang
_service:download_src_package:otp-0009-Add-extr...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File _service:download_src_package:otp-0009-Add-extra-search-directory.patch of Package erlang
From: Peter Lemenkov <lemenkov@gmail.com> Date: Wed, 2 Aug 2017 16:12:19 +0300 Subject: [PATCH] Add extra search directory Signed-off-by: Peter Lemenkov <lemenkov@gmail.com> diff --git a/lib/kernel/src/code_server.erl b/lib/kernel/src/code_server.erl index 59b26176bf..89297718fe 100644 --- a/lib/kernel/src/code_server.erl +++ b/lib/kernel/src/code_server.erl @@ -79,11 +79,17 @@ init(Ref, Parent, [Root,Mode]) -> IPath = case Mode of interactive -> - LibDir = filename:append(Root, "lib"), - {ok,Dirs} = erl_prim_loader:list_dir(LibDir), - Paths = make_path(LibDir, Dirs), + F = fun(R) -> + LD = filename:append(R, "lib"), + case erl_prim_loader:list_dir(LD) of + error -> []; + {ok, D} -> make_path(LD, D) + end + end, + Paths = F(Root), + SharedPaths = F("/usr/share/erlang"), UserLibPaths = get_user_lib_dirs(), - ["."] ++ UserLibPaths ++ Paths; + ["."] ++ UserLibPaths ++ Paths ++ SharedPaths; _ -> [] end,
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor