explicitly configure Getopt::Long
This commit is contained in:
parent
0ced3cc3de
commit
fffd74afc2
1 changed files with 4 additions and 1 deletions
|
@ -1695,7 +1695,7 @@ sub main() {
|
||||||
customize_hook => [],
|
customize_hook => [],
|
||||||
};
|
};
|
||||||
chomp ($options->{architectures} = `dpkg --print-architecture`);
|
chomp ($options->{architectures} = `dpkg --print-architecture`);
|
||||||
Getopt::Long::Configure ("bundling");
|
Getopt::Long::Configure ('default', 'bundling', 'auto_abbrev', 'ignore_case_always');
|
||||||
GetOptions(
|
GetOptions(
|
||||||
'h|help' => sub { pod2usage(-exitval => 0, -verbose => 2) },
|
'h|help' => sub { pod2usage(-exitval => 0, -verbose => 2) },
|
||||||
'components=s' => \$options->{components},
|
'components=s' => \$options->{components},
|
||||||
|
@ -2421,6 +2421,9 @@ file.
|
||||||
|
|
||||||
=head1 OPTIONS
|
=head1 OPTIONS
|
||||||
|
|
||||||
|
Options are case insensitive. Short options may be bundled. Long options
|
||||||
|
require a double dash and may be abbreviated to uniqueness.
|
||||||
|
|
||||||
=over 8
|
=over 8
|
||||||
|
|
||||||
=item B<-h,--help>
|
=item B<-h,--help>
|
||||||
|
|
Loading…
Reference in a new issue