aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorFredrik Gustafsson <[email protected]>2013-07-09 15:00:18 +0200
committerFredrik Gustafsson <[email protected]>2013-07-09 15:00:18 +0200
commit6ffa9ea73806a5c025d3c589cebdd911930060de (patch)
tree91cd499de9554a38e8255ee73601a14a0bc78ad0 /lib
parent3d8b8f2e77b5b247db26aa6a268fdc73458c0783 (diff)
parentf0608e162193edf10d0591ff4ab3236935e0e52b (diff)
downloadotp-6ffa9ea73806a5c025d3c589cebdd911930060de.tar.gz
otp-6ffa9ea73806a5c025d3c589cebdd911930060de.tar.bz2
otp-6ffa9ea73806a5c025d3c589cebdd911930060de.zip
Merge branch 'maint'
Diffstat (limited to 'lib')
-rw-r--r--lib/ssh/src/ssh_file.erl9
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/ssh/src/ssh_file.erl b/lib/ssh/src/ssh_file.erl
index f115a32710..21cdedc156 100644
--- a/lib/ssh/src/ssh_file.erl
+++ b/lib/ssh/src/ssh_file.erl
@@ -315,5 +315,12 @@ default_user_dir()->
{ok,[[Home|_]]} = init:get_argument(home),
UserDir = filename:join(Home, ".ssh"),
ok = filelib:ensure_dir(filename:join(UserDir, "dummy")),
- ok = file:change_mode(UserDir, ?PERM_700),
+ {ok,Info} = file:read_file_info(UserDir),
+ #file_info{mode=Mode} = Info,
+ case (Mode band 8#777) of
+ ?PERM_700 ->
+ ok;
+ _Other ->
+ ok = file:change_mode(UserDir, ?PERM_700)
+ end,
UserDir.