space out supported applet names so the config list doesnt wrap on an 80col terminal

This commit is contained in:
Mike Frysinger 2006-02-07 00:51:07 +00:00
parent 4fcefb9e90
commit 0380166916

View File

@ -155,14 +155,15 @@ foreach (@ARGV) {
my $generator = \&pod_for_usage; my $generator = \&pod_for_usage;
my @names = sort keys %docs; my @names = sort keys %docs;
print "\t[, [[, "; my $line = "\t[, [[, ";
for (my $i = 0; $i < $#names; $i++) { for (my $i = 0; $i < $#names; $i++) {
if (($i + 2) % 8 == 0) { if (length ($line.$names[$i]) >= 65) {
print "\n\t"; print "$line\n\t";
$line = "";
} }
print "$names[$i], "; $line .= "$names[$i], ";
} }
print $names[-1]; print $line . $names[-1];
print "\n\n=head1 COMMAND DESCRIPTIONS\n"; print "\n\n=head1 COMMAND DESCRIPTIONS\n";
print "\n=over 4\n\n"; print "\n=over 4\n\n";