Not lc opt names by default

[lwx19911226]

Opt "B" & "b" are both accepted, but the names are both "b",

bless({
leader_text => "t.pl [-Bb] [long options...]",
options => [
{ constraint => { default => 1 }, desc => "B", name => "b", spec => "B=i" },
{ constraint => { default => 2 }, desc => "b", name => "b", spec => "b=i" },
],
show_defaults => undef,
}, "Getopt::Long::Descriptive::Usage")

bless({ b => 1 }, "Getopt::Long::Descriptive::Opts::OPT::1")