Report if already deleted (or replaced) files were in use
Warn that find-dbgsym-packages might report already installed dbgsym
packages as necessary to install due to not the needed version being
installed.
Axel Beckert
5 years ago
8 | 8 |
+ Prefix all messages to STDERR with either "E:", "W:", or "I:".
|
9 | 9 |
+ Make regular expression in parse_eu_unstrip() more readable by
|
10 | 10 |
adding more no-op whitespace (/x mode).
|
|
11 |
+ Report if already deleted (or replaced) files were in use. Warn that
|
|
12 |
find-dbgsym-packages might report already installed dbgsym packages
|
|
13 |
as necessary to install due to not the needed version being
|
|
14 |
installed.
|
11 | 15 |
|
12 | 16 |
-- Axel Beckert <abe@debian.org> Sun, 18 Nov 2018 16:53:41 +0100
|
13 | 17 |
|
35 | 35 |
my $vdso_regexp = qr/^linux-(gate|vdso\d*)[.]so[.]/;
|
36 | 36 |
|
37 | 37 |
my %pkgs;
|
|
38 |
my @out_of_date_files;
|
38 | 39 |
foreach my $arg (@ARGV) {
|
39 | 40 |
my %build_ids;
|
40 | 41 |
if ($arg =~ /^\d+$/) {
|
|
63 | 64 |
}
|
64 | 65 |
}
|
65 | 66 |
|
|
67 |
if (@out_of_date_files) {
|
|
68 |
warn
|
|
69 |
"W: The following files were reported by eu-unstrip as \"deleted\":\n".
|
|
70 |
"W: ".join("\nW: ", @out_of_date_files)."\n".
|
|
71 |
"W: If $0 reports already installed dbgsym packages as necessary,\n".
|
|
72 |
"W: they are not at the expected (usually older) package version.\n";
|
|
73 |
}
|
|
74 |
|
66 | 75 |
say join(" ", sort keys %pkgs);
|
67 | 76 |
|
68 | 77 |
exit 0;
|
|
79 | 88 |
# 0x7fa9b8017000+0x39e9a0 79450f6e36287865d093ea209b85a222209925ff@0x7fa9b8017280 /lib/x86_64-linux-gnu/libc.so.6 /usr/lib/debug/.build-id/79/450f6e36287865d093ea209b85a222209925ff.debug libc.so.6
|
80 | 89 |
# 0x7f7f7235e000+0x17000 - /usr/share/locale/de/LC_MESSAGES/bash.mo - /usr/share/locale/de/LC_MESSAGES/bash.mo
|
81 | 90 |
# 0x7ffd4098a000+0x2000 de7dac2df9f596f46fa94a387858ef25170603ec@0x7ffd4098a7d0 . - [vdso: 1740]
|
|
91 |
# 0x7f37090fb000+0x2a000 dc5cb16f5e644116cac64a4c3f5da4d081b81a4f@0x7f37090fb248 - - /lib/x86_64-linux-gnu/ld-2.27.so (deleted)
|
82 | 92 |
if ($line =~ m{
|
83 | 93 |
^(?: 0 | 0x[[:xdigit:]]+ )
|
84 | 94 |
[+]
|
|
91 | 101 |
( \S+ )
|
92 | 102 |
\s+
|
93 | 103 |
(?: ( \S+ ) | ( \[vdso: \s+ \d+\] ) )?
|
|
104 |
( \s+ \(deleted\) )?
|
94 | 105 |
$
|
95 | 106 |
}ix) {
|
96 | 107 |
my $id = $1;
|
|
98 | 109 |
my $debug = $3;
|
99 | 110 |
my $name = $4 // $path;
|
100 | 111 |
my $vdso = $5;
|
|
112 |
my $deleted = $6;
|
101 | 113 |
if ($debug ne '-') {
|
102 | 114 |
next;
|
103 | 115 |
}
|
|
115 | 127 |
if ($path eq '-' || $path eq '.') {
|
116 | 128 |
$path = $name;
|
117 | 129 |
$path =~ s{ \(deleted\)$}{};
|
|
130 |
}
|
|
131 |
if (defined $deleted) {
|
|
132 |
push(@out_of_date_files, $path);
|
118 | 133 |
}
|
119 | 134 |
$ids{$id} = [$path, $name];
|
120 | 135 |
} else {
|