equal
deleted
inserted
replaced
127 if (@config::notify_dirs || $opt_initdir) { |
127 if (@config::notify_dirs || $opt_initdir) { |
128 check_hg_bin(); |
128 check_hg_bin(); |
129 } |
129 } |
130 |
130 |
131 if ($opt_initdir) { |
131 if ($opt_initdir) { |
|
132 |
132 my $repo = Logbuch::HG->new(repo => $opt_initdir); |
133 my $repo = Logbuch::HG->new(repo => $opt_initdir); |
133 |
134 |
134 $repo->is_repository() |
135 $repo->is_repository() |
135 and die "$ME: directory already initialized, skipping\n"; |
136 and die "$ME: directory already initialized, skipping\n"; |
136 |
137 |
|
138 # any repository is likely to contain sensitive data somewhere |
|
139 my $umask = umask 0077 |
|
140 or die "$ME: Can't set umask: $!"; |
|
141 |
137 $repo->init() |
142 $repo->init() |
138 or die "E: initialization failed\n"; |
143 or die "E: initialization failed\n"; |
|
144 |
|
145 umask $umask |
|
146 or warn "$ME: Can't restore umask: $!"; |
139 |
147 |
140 $repo->addremove(); |
148 $repo->addremove(); |
141 $repo->commit("initial check in"); |
149 $repo->commit("initial check in"); |
142 |
150 |
143 exit 0; |
151 exit 0; |