Pārlūkot izejas kodu

script/scancpan: add -host & -target options

Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@free-electrons.com>
Francois Perrad 11 gadi atpakaļ
vecāks
revīzija
0f33003a54
1 mainītis faili ar 18 papildinājumiem un 6 dzēšanām
  1. 18 6
      support/scripts/scancpan

+ 18 - 6
support/scripts/scancpan

@@ -482,11 +482,14 @@ use File::Basename;
 use Module::CoreList;
 use Module::CoreList;
 use MetaCPAN::API::Tiny;
 use MetaCPAN::API::Tiny;
 
 
-my ($help, $man, $quiet, $force, $recommend);
+my ($help, $man, $quiet, $force, $recommend, $host);
+my $target = 1;
 GetOptions( 'help|?' => \$help,
 GetOptions( 'help|?' => \$help,
             'man' => \$man,
             'man' => \$man,
             'quiet|q' => \$quiet,
             'quiet|q' => \$quiet,
             'force|f' => \$force,
             'force|f' => \$force,
+            'host!' => \$host,
+            'target!' => \$target,
             'recommend' => \$recommend
             'recommend' => \$recommend
 ) or pod2usage(-exitval => 1);
 ) or pod2usage(-exitval => 1);
 pod2usage(-exitval => 0) if $help;
 pod2usage(-exitval => 0) if $help;
@@ -547,8 +550,8 @@ sub fetch {
 }
 }
 
 
 foreach my $distname (@ARGV) {
 foreach my $distname (@ARGV) {
-    # Command-line's distributions are needed for target, not host
-    fetch( $distname, 1, 0 );
+    # Command-line's distributions
+    fetch( $distname, !!$target, !!$host );
 }
 }
 say scalar keys %dist, q{ packages fetched.} unless $quiet;
 say scalar keys %dist, q{ packages fetched.} unless $quiet;
 
 
@@ -660,6 +663,8 @@ supports/scripts/scancpan [options] [distname ...]
    -man
    -man
    -quiet
    -quiet
    -force
    -force
+   -target/-notarget
+   -host/-nohost
    -recommend
    -recommend
 
 
 =head1 OPTIONS
 =head1 OPTIONS
@@ -682,6 +687,14 @@ Executes without output
 
 
 Forces the overwriting of existing files.
 Forces the overwriting of existing files.
 
 
+=item B<-target/-notarget>
+
+Switches package generation for the target variant (the default is C<-target>).
+
+=item B<-host/-nohost>
+
+Switches package generation for the host variant (the default is C<-nohost>).
+
 =item B<-recommend>
 =item B<-recommend>
 
 
 Adds I<recommended> dependencies.
 Adds I<recommended> dependencies.
@@ -695,9 +708,8 @@ Perl/CPAN distributions required by the specified distnames. The
 dependencies and metadata are fetched from https://metacpan.org/.
 dependencies and metadata are fetched from https://metacpan.org/.
 
 
 After running this script, it is necessary to check the generated files.
 After running this script, it is necessary to check the generated files.
-You have to manually enable the host- version if you need it. You have to
-manually add the license files (PERL_FOO_LICENSE_FILES variable). For
-distributions that link against a target library, you have to add the
+You have to manually add the license files (PERL_FOO_LICENSE_FILES variable).
+For distributions that link against a target library, you have to add the
 buildroot package name for that library to the DEPENDENCIES variable.
 buildroot package name for that library to the DEPENDENCIES variable.
 
 
 See the Buildroot documentation for details on the usage of the Perl
 See the Buildroot documentation for details on the usage of the Perl