mirror of
https://git.proxmox.com/git/perlmod
synced 2025-10-04 20:11:21 +00:00
perlmod-bin: genpackage: better help output formatting
Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
parent
1544fc13d7
commit
aed250cd08
@ -51,7 +51,7 @@ sub help : prototype($) ($fd) {
|
|||||||
for my $o (sort keys %$opts) {
|
for my $o (sort keys %$opts) {
|
||||||
my ($arg, $desc) = $opts->{$o}->@*;
|
my ($arg, $desc) = $opts->{$o}->@*;
|
||||||
my $p = defined($arg) ? "--$o=$arg" : "--$o";
|
my $p = defined($arg) ? "--$o=$arg" : "--$o";
|
||||||
printf {$fd} " %20s %s\n", $p, $desc;
|
printf {$fd} " %-22s %s\n", $p, $desc;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user