}
sub check_not_dirty () {
- foreach my $f (qw(local-options local-patch-header)) {
+ my @forbid = qw(local-options local-patch-header);
+ foreach my $f (@forbid) {
if (stat_exists "debian/source/$f") {
fail f_ "git tree contains debian/source/%s", $f;
}