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…
x
Reference in New Issue
Block a user