puck/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

* `*.gcroot' files can now containing multiple roots.

Browse source
This commit is contained in:
Eelco Dolstra 2004-04-14 08:09:27 +00:00
parent a4d2b22c8c
commit b275f2ed3b
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scripts/nix-collect-garbage.in
View file

@ -26,10 +26,14 @@ foreach my $link (@links) {
$link = $linkdir . "/" . $link; $link = $linkdir . "/" . $link;
next if (!($link =~ /.gcroot$/)); next if (!($link =~ /.gcroot$/));
open ROOT, "<$link" or die "cannot open $link: $!"; open ROOT, "<$link" or die "cannot open $link: $!";
my $root = <ROOT>; while (<ROOT>) {
chomp $root; chomp;
foreach my $root (split ' ') {
die "bad root `$root' in file `$link'" unless $root =~ /^\S+$/;
push @roots, $root;
}
}
close ROOT; close ROOT;
push @roots, $root;
} }
my $extraarg = ""; my $extraarg = "";