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