dtneededsize: +-r

[massrebuild.git] / dtneededsize

diff --git a/dtneededsize b/dtneededsize
index 61ea9b8..6603bde 100755 (executable)
--- a/dtneededsize
+++ b/dtneededsize
@@ -18,6 +18,14 @@ sub readfile {
   return $r;
 }
 
   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
 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") {
 # ==> 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 $_;
   local *F;
   open F,$dtneededfn or die "$dtneededfn: $1";
   local $_;