forked from lix-project/hydra
parent
3520315fea
commit
9334b84d6f
|
@ -79,6 +79,7 @@ sub gcRootFor {
|
||||||
sub registerRoot {
|
sub registerRoot {
|
||||||
my ($path) = @_;
|
my ($path) = @_;
|
||||||
my $link = gcRootFor $path;
|
my $link = gcRootFor $path;
|
||||||
|
return if -e $link;
|
||||||
open ROOT, ">$link" or die "cannot create GC root `$link' to `$path'";
|
open ROOT, ">$link" or die "cannot create GC root `$link' to `$path'";
|
||||||
close ROOT;
|
close ROOT;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue