linktrace: It'd help if I'd added the tool

Signed-off-by: Daniel Silverstone <dsilvers@digital-scurf.org>
This commit is contained in:
Daniel Silverstone 2020-10-02 13:15:46 +01:00
parent 72b20fbd45
commit a4bda322a9
No known key found for this signature in database
GPG Key ID: C30DF439F2987D74

View File

@ -0,0 +1,18 @@
#!/usr/bin/perl -w
use strict;
use Cwd qw(abs_path);
my %deps;
while (my $line = <>) {
chomp $line;
if ($line =~ /\(([^)]+)/) {
$deps{abs_path($1)} = 1;
}
}
my @deps = keys %deps;
print join("\t\\\n\t", @deps), "\n";