From 69dafa2b0a22ca4f266f730342ff3d6b1802767b Mon Sep 17 00:00:00 2001 From: Fred Hebert Date: Fri, 17 Nov 2017 11:40:27 -0500 Subject: Fix release upgrades on Windows Some tool calls were outdated, and in some cases, relied on non-existing features there. --- priv/templates/install_upgrade_escript | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'priv/templates/install_upgrade_escript') diff --git a/priv/templates/install_upgrade_escript b/priv/templates/install_upgrade_escript index 47521c6..d704136 100644 --- a/priv/templates/install_upgrade_escript +++ b/priv/templates/install_upgrade_escript @@ -207,7 +207,12 @@ find_and_link_release_package(Version, RelName) -> ok = filelib:ensure_dir(filename:join([filename:dirname(ReleaseLink), "dummy"])), %% create the symlink pointing to the full path name of the %% release package we found - ok = file:make_symlink(filename:absname(Filename), ReleaseLink), + case file:make_symlink(filename:absname(Filename), ReleaseLink) of + ok -> + ok; + {error, eperm} -> % windows! + {ok,_} = file:copy(filename:absname(Filename), ReleaseLink) + end, {Filename, ReleaseHandlerPackageLink} end. @@ -311,7 +316,7 @@ start_distribution(TargetNode, NameTypeArg, Cookie) -> {true, pong} -> ok; {_, pang} -> - io:format("Node ~p not responding to pings.\n", [TargetNode]), + ?INFO("Node ~p not responding to pings.\n", [TargetNode]), erlang:halt(1) end, {ok, Cwd} = file:get_cwd(), -- cgit v1.2.3