|
Lines 358-364
sub create_excludelist {
Link Here
|
| 358 |
or die "Failed to open exclude list ($excludefile): $!\n"; |
358 |
or die "Failed to open exclude list ($excludefile): $!\n"; |
| 359 |
print EXCLFILE '# Auto-generated exclude list ', scalar localtime, "\n"; |
359 |
print EXCLFILE '# Auto-generated exclude list ', scalar localtime, "\n"; |
| 360 |
for (sort keys %leavestokeep) { |
360 |
for (sort keys %leavestokeep) { |
| 361 |
/^(.+)-\d.*$/o |
361 |
/^(.+)-g?\d.*$/o |
| 362 |
? print EXCLFILE $1, "\n" |
362 |
? print EXCLFILE $1, "\n" |
| 363 |
: warn 'Unable to extract exclude pattern from ', $_, "\n"; |
363 |
: warn 'Unable to extract exclude pattern from ', $_, "\n"; |
| 364 |
} |
364 |
} |
| 365 |
- |
|
|