Commit ed8ab0ce authored by Francois Perrad's avatar Francois Perrad Committed by Thomas Petazzoni
Browse files

support/script/scanpcan: small fix 



- typo in comment
- remove trailing space in _HOST_DEPENCENCIES when no dependency

Signed-off-by: default avatarFrancois Perrad <francois.perrad@gadz.org>
Signed-off-by: default avatarThomas Petazzoni <thomas.petazzoni@free-electrons.com>
parent bea8f267

support/scripts/scancpan

+6 −5
Original line number Diff line number Diff line
@@ -503,7 +503,7 @@ my %need_host; # name -> 1 if host package is needed 
my %need_dlopen;        # name -> 1 if requires dynamic library

my %deps_build;         # name -> list of host dependencies

my %deps_runtime;       # name -> list of target dependencies

my %license_files;      # neam -> list of license files

my %license_files;      # name -> list of license files

my $mcpan = MetaCPAN::API::Tiny->new();

my $ua = HTTP::Tiny->new();
@@ -636,10 +636,11 @@ while (my ($distname, $dist) = each %dist) { 
        # the scheme is not used, because the job is done by the BR download infrastructure

        # the auth part is not used, because we use $(BR2_CPAN_MIRROR)

        my($filename, $directories, $suffix) = fileparse( $path, q{tar.gz}, q{tgz} );

        my $dependencies = join q{ }, qw( perl ),

        my $dependencies = join q{ }, qw( = perl ),

                                      map( { q{host-} . fsname( $_ ); } sort @{$deps_build{$distname}} ),

                                      map( { fsname( $_ ); } sort @{$deps_runtime{$distname}} );

        my $host_dependencies = join q{ }, map { q{host-} . fsname( $_ ); } sort( @{$deps_build{$distname}},

        my $host_dependencies = join q{ }, qw( = ),

                                           map { q{host-} . fsname( $_ ); } sort( @{$deps_build{$distname}},

                                                                                  @{$deps_runtime{$distname}} );

        my $license = ref $dist->{license} eq 'ARRAY'

                    ? join q{ or }, @{$dist->{license}}
@@ -659,8 +660,8 @@ while (my ($distname, $dist) = each %dist) { 
        say {$fh} qq{${brname}_VERSION = ${version}};

        say {$fh} qq{${brname}_SOURCE = ${distname}-\$(${brname}_VERSION).${suffix}};

        say {$fh} qq{${brname}_SITE = \$(BR2_CPAN_MIRROR)${directories}};

        say {$fh} qq{${brname}_DEPENDENCIES = ${dependencies}} if $need_target{$distname};

        say {$fh} qq{HOST_${brname}_DEPENDENCIES = ${host_dependencies}} if $need_host{$distname};

        say {$fh} qq{${brname}_DEPENDENCIES ${dependencies}} if $need_target{$distname};

        say {$fh} qq{HOST_${brname}_DEPENDENCIES ${host_dependencies}} if $need_host{$distname};

        say {$fh} qq{${brname}_LICENSE = ${license}} if $license && $license ne q{unknown};

        say {$fh} qq{${brname}_LICENSE_FILES = ${license_files}} if $license_files;

        say {$fh} qq{};