From 380847aaf5e4609066d7cee35f8cbb8d418a494a Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Sun, 13 Sep 2020 14:28:25 +0200 Subject: [PATCH] dtneededsize: +-r --- dtneededsize | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/dtneededsize b/dtneededsize index 61ea9b8..6603bde 100755 --- a/dtneededsize +++ b/dtneededsize @@ -18,6 +18,14 @@ sub readfile { 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 @@ -26,6 +34,7 @@ my %D; # ==> 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 $_; -- 1.8.3.1