explicitly configure Getopt::Long

This commit is contained in:
Johannes 'josch' Schauer 2019-02-20 18:00:52 +01:00
parent 0ced3cc3de
commit fffd74afc2
Signed by: josch
GPG key ID: F2CBA5C78FBD83E1

View file

@ -1695,7 +1695,7 @@ sub main() {
customize_hook => [],
};
chomp ($options->{architectures} = `dpkg --print-architecture`);
Getopt::Long::Configure ("bundling");
Getopt::Long::Configure ('default', 'bundling', 'auto_abbrev', 'ignore_case_always');
GetOptions(
'h|help' => sub { pod2usage(-exitval => 0, -verbose => 2) },
'components=s' => \$options->{components},
@ -2421,6 +2421,9 @@ file.
=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
=item B<-h,--help>