From: Martin Logan <[EMAIL PROTECTED]>
---
lib/epkg/src/epkg_installed_paths.erl | 10 ++--------
1 files changed, 2 insertions(+), 8 deletions(-)
diff --git a/lib/epkg/src/epkg_installed_paths.erl
b/lib/epkg/src/epkg_installed_paths.erl
index 8ac507c..812a727 100644
--- a/lib/epkg/src/epkg_installed_paths.erl
+++ b/lib/epkg/src/epkg_installed_paths.erl
@@ -167,13 +167,7 @@ list_app_vsns(ErtsVsn, AppName) ->
%% @end
%%--------------------------------------------------------------------
list_erts_vsns(InstallationPath) ->
- ErtsContainerPath =
ewl_installed_paths:erts_container_path(InstallationPath),
- lists:map(
- fun(Path) ->
- {ok, {_Name, Vsn}} = package_dir_to_name_and_vsn(Path),
- Vsn
- end,
- filelib:wildcard(ErtsContainerPath ++ "/*")).
+ lists:map(fun(Path) -> filename:basename(Path) end,
filelib:wildcard(InstallationPath ++ "/packages/*")).
%%--------------------------------------------------------------------
%% @doc return a list of erts versions currently installed that are lower than
the supplied version.
@@ -273,7 +267,7 @@ get_installation_path() ->
find_config_file_path(RelName, RelVsn) ->
{ok, InstallationPath} = get_installation_path(),
RelDirPath =
ewl_installed_paths:release_file_container_path(InstallationPath, RelName,
RelVsn),
- case ewl_file:find(RelDirPath, ".*config") of
+ case ewl_file:find(RelDirPath, ".*config$") of
[] -> throw({error, no_erlang_config_file_found});
RelConfigFilePath -> RelConfigFilePath
end.
--
1.5.3.5
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"erlware-dev" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/erlware-dev?hl=en
-~----------~----~----~----~------~----~------~--~---
