compile: another solaris compat fix, to do with "~"

system("...") run from perl on sol does not seem to like "~" (regardless of
what $SHELL is set to), so use $ENV{HOME} instead

thanks again to evocallaghan
This commit is contained in:
Sitaram Chamarty 2009-08-30 21:14:15 +05:30
parent b916a07d28
commit 78a10a1ee1

View file

@ -232,8 +232,8 @@ close $newkeys_fh or die "close newkeys failed: $!";
# system("vim -d ~/.ssh/authorized_keys ~/.ssh/new_authkeys"); # system("vim -d ~/.ssh/authorized_keys ~/.ssh/new_authkeys");
# all done; overwrite the file (use cat to avoid perm changes) # all done; overwrite the file (use cat to avoid perm changes)
system("cat ~/.ssh/new_authkeys > ~/.ssh/authorized_keys"); system("cat $ENV{HOME}/.ssh/new_authkeys > $ENV{HOME}/.ssh/authorized_keys");
system("rm ~/.ssh/new_authkeys"); system("rm $ENV{HOME}/.ssh/new_authkeys");
# if the gl admin directory (~/.gitolite) is itself a git repo, do an # if the gl admin directory (~/.gitolite) is itself a git repo, do an
# autocheckin. nothing fancy; this is a "just in case" type of thing. # autocheckin. nothing fancy; this is a "just in case" type of thing.