Mercurial > pkg

comparison src/system-init.pl @ 29:819e950ac8cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes.
author Robert McIntyre <rlm@mit.edu>
date Thu, 10 Jan 2013 16:59:50 +0000
parents 5caff062fd36
children 2ea43f89d84f
comparison
equal deleted inserted replaced
28:dd480255bd82 29:819e950ac8cc
1 #!/usr/bin/env perl 1 #!/usr/bin/perl
2 use Cwd;
2 3
3 use Cwd;
4 4
5 sub create_install_dir{ 5 sub create_install_dir{
6 @install_cmd = 6 @install_cmd =
7 ("install", "-d", "-m", 7 ("install", "-d", "-m",
8 "775", "-o", "root", "-g", 8 "775", "-o", "root", "-g",
116 116
117 execute("install -d -o root -g root -m 755 /pkg/skel"); 117 execute("install -d -o root -g root -m 755 /pkg/skel");
118 118
119 execute("chown -Rv root:root /.hg"); 119 execute("chown -Rv root:root /.hg");
120 120
121 $pwd = getcwd; 121 $pwd = cwd();
122 execute("ln -sf $pwd/profile /pkg/skel/.profile"); 122 execute("ln -sf $pwd/profile /pkg/skel/.profile");
123 execute("ln -sf $pwd/hg-wrapper /pkg/skel/"); 123 execute("ln -sf $pwd/hg-wrapper /pkg/skel/");
124 execute("ln -sf $pwd/save-acls /pkg/skel/"); 124 execute("ln -sf $pwd/save-acls /pkg/skel/");
125 execute("ln -sf `which hg` /pkg/skel/"); 125 execute("ln -sf `which hg` /pkg/skel/");
126 126