- # Don't do all pods in same command to avoid busting command line limits
- while (my @this_batch = splice @to_process, 0, $opts{batchlimit}) {
- my $cmd = join " ", $pod2man, map "$$_[0] $$_[1]", @this_batch;
- if (&cmd($cmd) == 0 && !$opts{notify}) {
- foreach (@this_batch) {
- my (undef, $tmp, $manpage) = @$_;
- if (-s $tmp) {
- if (rename($tmp, $manpage)) {
- $packlist->{$manpage} = { type => 'file' };
- next;
- }
- }
- unless ($opts{notify}) {
- unlink($tmp);
- }
- }
- }
- }
- chdir "$builddir" || die "Unable to cd back to $builddir directory!\n$!\n";
- print " chdir $builddir\n" if $opts{verbose};
-}