Fix registerRoot

Fixes #175.
This commit is contained in:
Eelco Dolstra 2014-08-13 16:29:00 +02:00
parent 3520315fea
commit 9334b84d6f

View file

@ -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;
}