mirror of
https://github.com/sheumann/hush.git
synced 2024-11-05 06:07:00 +00:00
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 @names = sort keys %docs;
|
||||
print "\t[, [[, ";
|
||||
my $line = "\t[, [[, ";
|
||||
for (my $i = 0; $i < $#names; $i++) {
|
||||
if (($i + 2) % 8 == 0) {
|
||||
print "\n\t";
|
||||
if (length ($line.$names[$i]) >= 65) {
|
||||
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=over 4\n\n";
|
||||
|
Loading…
Reference in New Issue
Block a user