} else {
$opt->{verbose} ||= 1;
$dst //= *STDERR{GLOB};
- $opt->{-progress} = sub { print $dst @_ };
+ $opt->{-progress} = sub { print $dst '# ', @_ };
}
}
or die "`$git_key=$s' not boolean\n";
$opt->{$k} = $v;
}
+ for my $k (qw(since until)) {
+ my $v = $opt->{$k} // next;
+ $opt->{reindex} or die "--$k=$v requires --reindex\n";
+ }
$env;
}