- my $entries = delete($self->{-ent}) // [];
- while (@$entries) {
- my ($edst, $ent) = splice(@$entries);
- if (defined(my $o = $ent->{owner})) {
- run_die [qw(git config -f), "$edst/config",
- 'gitweb.owner', $o];
- }
- my $d = $ent->{description} // next;
- my $fn = "$edst/description";
- open my $fh, '>', $fn or die "open($fn): $!";
- print $fh $d, "\n" or die "print($fn): $!";
- close $fh or die "close($fn): $!";
- }