Browse files

A little bit more verbosity for symlinking when running 'install'

  • Loading branch information...
1 parent 36799d9 commit 0aa474b9b1ac287063e7c2b0e43d83c2661a15b3 @yrashk yrashk committed Feb 28, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/agner_fetch.erl
View
1 src/agner_fetch.erl
@@ -589,6 +589,7 @@ install_command(#opts_rec{ spec = {spec, Spec}, directory = Directory, quiet = Q
Symlink = filename:join(os:getenv("AGNER_BIN"),filename:basename(File)),
File1 = filename:join([InstallPrefix,File]),
file:delete(Symlink),
+ io:format("[Symlinking ~s -> ~s]~n",[File1, Symlink]),
{ok, #file_info{mode = Mode}} = file:read_file_info(File1),
file:change_mode(File1, Mode bor 8#00011),
ok = file:make_symlink(File1, Symlink)

0 comments on commit 0aa474b

Please sign in to comment.