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