space out supported applet names so the config list doesnt wrap on an 80col terminal
This commit is contained in:
parent
4fcefb9e90
commit
0380166916
@ -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";
|
||||||
|
Loading…
x
Reference in New Issue
Block a user