|
Lines 264-271
Link Here
|
| 264 |
echo \$CONFIG_PROTECT`; |
264 |
echo \$CONFIG_PROTECT`; |
| 265 |
die "CONFIG_PROTECT is empty" unless @CONFIG_PROTECT; |
265 |
die "CONFIG_PROTECT is empty" unless @CONFIG_PROTECT; |
| 266 |
my $confprotre = join '|', @CONFIG_PROTECT; |
266 |
my $confprotre = join '|', @CONFIG_PROTECT; |
| 267 |
@files = grep { |
267 |
@files = grep { |
| 268 |
(split ' ')[1] =~ /^($confprotre)/o |
268 |
(split ' ', $_, 2)[1] =~ /^($confprotre)/o |
| 269 |
} @files; |
269 |
} @files; |
| 270 |
} |
270 |
} |
| 271 |
|
271 |
|
|
Lines 274-280
Link Here
|
| 274 |
# We don't have a variable like CONFIG_PROTECT to work |
274 |
# We don't have a variable like CONFIG_PROTECT to work |
| 275 |
# with, so just fake it... :-) |
275 |
# with, so just fake it... :-) |
| 276 |
@files = grep { |
276 |
@files = grep { |
| 277 |
(split ' ', $_)[1] =~ m/\/(?:doc|man|info)\//o |
277 |
(split ' ', $_, 2)[1] =~ m/\/(?:doc|man|info)\//o |
| 278 |
} @files; |
278 |
} @files; |
| 279 |
} |
279 |
} |
| 280 |
|
280 |
|
|
Lines 286-302
Link Here
|
| 286 |
# Otherwise do some work so that intermediate directories |
286 |
# Otherwise do some work so that intermediate directories |
| 287 |
# aren't listed |
287 |
# aren't listed |
| 288 |
else { |
288 |
else { |
| 289 |
for (my $i=0; $i < @files; $i++) { |
289 |
print grep { /^obj / && s/^obj (.*?) \w+ \d+$/$1/ } @files; |
| 290 |
my ($f1) = $files[$i]; |
|
|
| 291 |
$f1 = (split ' ', $f1)[1]; |
| 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 |
} |
290 |
} |
| 301 |
} |
291 |
} |
| 302 |
|
292 |
|
