Lines 267-268
Link Here
|
267 |
@files = grep { |
267 |
@files = grep { (split ' ', $_, 2)[1] =~ /^($confprotre)/o |
268 |
(split ' ')[1] =~ /^($confprotre)/o |
|
|
269 |
-- |
Line 277
Link Here
|
277 |
(split ' ', $_)[1] =~ m/\/(?:doc|man|info)\//o |
276 |
(split ' ', $_, 2)[1] =~ m/\/(?:doc|man|info)\//o |
278 |
-- |
|
|
Lines 289-299
Link Here
|
289 |
for (my $i=0; $i < @files; $i++) { |
288 |
print grep { |
290 |
my ($f1) = $files[$i]; |
289 |
/^obj / && s/^obj (.*?) \w+ \d+$/$1/ |
291 |
$f1 = (split ' ', $f1)[1]; |
290 |
|| /^sym / && s/^sym (.*?) \d+$/$1/ } @files; |
292 |
if ($i < @files-1) { |
|
|
293 |
my $f2 = $files[$i+1]; |
294 |
$f2 = (split ' ', $f2)[1]; |
295 |
vverb "Comparing $f1 to $f2"; |
296 |
next if $f2 =~ m#^\Q$f1\E/#; |
297 |
} |
298 |
print $f1, "\n"; |
299 |
} |
300 |
-- |