perlmod-bin: genpackage: better help output formatting

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2025-02-06 17:31:30 +01:00
parent 1544fc13d7
commit aed250cd08

View File

@ -51,7 +51,7 @@ sub help : prototype($) ($fd) {
for my $o (sort keys %$opts) {
my ($arg, $desc) = $opts->{$o}->@*;
my $p = defined($arg) ? "--$o=$arg" : "--$o";
printf {$fd} " %20s %s\n", $p, $desc;
printf {$fd} " %-22s %s\n", $p, $desc;
}
}