return $r;
}
+my %R;
+if (($ARGV[0]||"") eq "-r") {
+ shift;
+ my $r=readfile shift;
+ $R{$1}=1 while $r=~s/^(.*?)\n//;
+ die $r if $r;
+}
+
my %D;
# ==> build/Cadence-1.0.0-0.12.20200504git5787908.fc33.src.rpm.dtneeded <==
# /usr/lib/debug/.dwz/Cadence isdwzcommon 479079 NA
# ==> build/CVector-1.0.3.1-21.fc33.src.rpm.dtneeded <==
# /usr/lib64/libCVector-1.0.3.so.2.0.0 nodwzcommon 28088 28896
for my $dtneededfn (glob "build/*.dtneeded") {
+ next if %R && !$R{($dtneededfn=~m{^build/(.*?)-[^-]*-[^-]*$})[0]."-debuginfo"};
local *F;
open F,$dtneededfn or die "$dtneededfn: $1";
local $_;