amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-21 09:09:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Display default option value if one is defined

Browse source
This commit is contained in:
Duncan Ferguson 2014-06-08 09:51:58 +01:00
parent 13442fb156
commit 374775bf87
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/App/ClusterSSH/Getopt.pm
View file

@ -326,6 +326,10 @@ sub _generate_pod {
}
print '=item ', $desc, $/,$/;
print $self->{command_options}->{$longopt}->{help},$/,$/;
if($self->{command_options}->{$longopt}->{default}) {
print 'Default: ', $self->{command_options}->{$longopt}->{default}, $/, $/;
}
}
print '=back',$/,$/;