---
lib/ewrepo/ebin/ewrepo.app | 2 +-
lib/ewrepo/src/ewr_fetch.erl | 13 ++++++++-----
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/lib/ewrepo/ebin/ewrepo.app b/lib/ewrepo/ebin/ewrepo.app
index 056604c..a8a31e7 100644
--- a/lib/ewrepo/ebin/ewrepo.app
+++ b/lib/ewrepo/ebin/ewrepo.app
@@ -1,6 +1,6 @@
{application, ewrepo,
[{description, "Erlang repository interface"},
- {vsn, "0.18.2.0"},
+ {vsn, "0.18.2.1"},
{modules, [ewr_fetch,
ewr_depends,
ewr_deps_engine,
diff --git a/lib/ewrepo/src/ewr_fetch.erl b/lib/ewrepo/src/ewr_fetch.erl
index ddb3234..3a19093 100644
--- a/lib/ewrepo/src/ewr_fetch.erl
+++ b/lib/ewrepo/src/ewr_fetch.erl
@@ -355,7 +355,8 @@ fetch_from_repos([Repo | Rest], PosLocations, TarName, To,
Timeout) ->
case catch fetch_from_repo(Repo, PosLocations, TarName, To, Timeout) of
ok ->
ok;
- _ ->
+ Error ->
+ error_logger:info_msg("fetch_from_repos/5 fetch failed with ~p
trying again at ~p~n", [Error, Rest]),
fetch_from_repos(Rest, PosLocations, TarName, To, Timeout)
end;
fetch_from_repos([], _PosLocations, TarName, _To, _Timeout) ->
@@ -372,8 +373,7 @@ fetch_from_repo(Repo, [Uri | T], TarName, To, Timeout) ->
fetch_from_repo(Repo, T, TarName, To, Timeout)
end;
fetch_from_repo(_Repo, [], TarName, _To, _Timeout) ->
- throw({not_available, lists:flatten([TarName,
- " not available in repository"])}).
+ throw({not_available, TarName ++ " not available in repository"}).
@@ -424,10 +424,13 @@ write_data(Data, To) ->
%% @private
%%-------------------------------------------------------------------
handle_tar_file(To, ActualTo) ->
+ error_logger:info_msg("ewr_fetch:handle_tar_file writing to ~p -> ~p~n",
[ActualTo, To]),
Cmd = lists:flatten(["tar -xzf ", ewr_util:handle_cygwin_path(ActualTo), "
-C ", ewr_util:handle_cygwin_path(To)]),
case os:cmd(Cmd) of
- [] -> ok;
- Error -> throw({error, {unable_to_untar, ActualTo}, Error})
+ [] ->
+ ok;
+ Error ->
+ throw({error, {unable_to_untar, ActualTo}, Error})
end,
file:delete(ewr_util:handle_cygwin_path(ActualTo)),
ok.
--
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
-~----------~----~----~----~------~----~------~--~---
