|
|
@ -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>
|
|
|
|