|
|
@ -15,6 +15,8 @@
|
|
|
|
use strict;
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
our $VERSION = '0.3.0';
|
|
|
|
|
|
|
|
|
|
|
|
use English;
|
|
|
|
use English;
|
|
|
|
use Getopt::Long;
|
|
|
|
use Getopt::Long;
|
|
|
|
use Pod::Usage;
|
|
|
|
use Pod::Usage;
|
|
|
@ -1699,6 +1701,7 @@ sub main() {
|
|
|
|
Getopt::Long::Configure ('default', 'bundling', 'auto_abbrev', 'ignore_case_always');
|
|
|
|
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) },
|
|
|
|
|
|
|
|
'version' => sub { print STDOUT "mmdebstrap $VERSION\n"; exit 0; },
|
|
|
|
'components=s' => \$options->{components},
|
|
|
|
'components=s' => \$options->{components},
|
|
|
|
'variant=s' => \$options->{variant},
|
|
|
|
'variant=s' => \$options->{variant},
|
|
|
|
'include=s' => \$options->{include},
|
|
|
|
'include=s' => \$options->{include},
|
|
|
@ -2445,6 +2448,10 @@ require a double dash and may be abbreviated to uniqueness.
|
|
|
|
|
|
|
|
|
|
|
|
Print this help text and exit.
|
|
|
|
Print this help text and exit.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
=item B<--version>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Print the B<mmdebstrap> version and exit.
|
|
|
|
|
|
|
|
|
|
|
|
=item B<--variant>=I<name>
|
|
|
|
=item B<--variant>=I<name>
|
|
|
|
|
|
|
|
|
|
|
|
Choose which package set to install. Valid variant I<name>s are B<extract>,
|
|
|
|
Choose which package set to install. Valid variant I<name>s are B<extract>,
|
|
|
|