Skip to content
Snippets Groups Projects
Commit b275f2ed authored by Eelco Dolstra's avatar Eelco Dolstra
Browse files

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

parent a4d2b22c
No related branches found
No related tags found
No related merge requests found
......@@ -26,10 +26,14 @@ foreach my $link (@links) {
$link = $linkdir . "/" . $link;
next if (!($link =~ /.gcroot$/));
open ROOT, "<$link" or die "cannot open $link: $!";
my $root = <ROOT>;
chomp $root;
while (<ROOT>) {
chomp;
foreach my $root (split ' ') {
die "bad root `$root' in file `$link'" unless $root =~ /^\S+$/;
push @roots, $root;
}
}
close ROOT;
push @roots, $root;
}
my $extraarg = "";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment