* Check against creation of GC roots in the store. Those roots don't

work, because findRoots() stops when it encounters a symlink to the store. And of course the store is supposed to be read-only.
2007-06-11 11:36:22 +00:00
parent f3ebd03bb1
commit 9bff7ad728
2 changed files with 7 additions and 3 deletions
@@ -122,7 +122,7 @@ foreach my $expr (@exprs) {
    close DRVPATHS or exit 1;

    foreach my $drvPath (@drvPaths) {
-        my $target = readlink $drvPath;
+        my $target = readlink $drvPath or die "cannot read symlink `$drvPath'";
        print STDERR "store derivation is $target\n";
    }

@@ -134,7 +134,7 @@ foreach my $expr (@exprs) {
    close OUTPATHS or exit 1;

    foreach my $outPath (@outPaths) {
-        my $target = readlink $outPath;
+        my $target = readlink $outPath or die "cannot read symlink `$outPath'";
        print "$target\n";
    }
 }