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 => [], 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>