|
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 |
-- |
