# Read our dependency information.
while (<>) {
chomp;
- my ($module, $dependency_str) = /^([^:]*): ?(.*)$/;
+ my ($module, $dependency_str) = /^\s*([^:]+):\s*(.*)\s*$/;
die "Malformed data: $_" unless defined $dependency_str;
my @dependencies = split(/ /, $dependency_str);
$DEPS{$module} = \@dependencies;
$cycles_found = $cycles_found + 1;
print STDERR "find-cycles.pl: Circular dependency between *.a files:\n";
print STDERR "find-cycles.pl: ", join(' ', @archives), "\n";
- print STDERR "find-cycles.pl: Some linkers may have problems.\n";
push @modules, @archives; # WORKAROUND: Duplicate *.a files. Ick.
}
join(' ', sort keys %dependencies) . "\n");
}
print sort @output;
+
exit $cycles_found;
#==========================================================================