"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "utils/scancpan" between
buildroot-2019.05.1.tar.bz2 and buildroot-2019.08-rc1.tar.bz2

About: Buildroot is a set of Makefiles and patches that makes it easy to generate a complete embedded Linux system. Release candidate.

scancpan  (buildroot-2019.05.1.tar.bz2):scancpan  (buildroot-2019.08-rc1.tar.bz2)
skipping to change at line 471 skipping to change at line 471
} # END OF FATPACK CODE } # END OF FATPACK CODE
use 5.010; use 5.010;
use strict; use strict;
use warnings; use warnings;
use Fatal qw(open close); use Fatal qw(open close);
use Getopt::Long; use Getopt::Long;
use Pod::Usage; use Pod::Usage;
use File::Basename; use File::Basename;
use File::Path qw(make_path);
use Module::CoreList; use Module::CoreList;
use HTTP::Tiny; use HTTP::Tiny;
use Safe; use Safe;
use MetaCPAN::API::Tiny; use MetaCPAN::API::Tiny;
use Digest::SHA qw(sha256_hex); use Digest::SHA qw(sha256_hex);
use Text::Wrap; use Text::Wrap;
$Text::Wrap::columns = 62; $Text::Wrap::columns = 62;
# Below, 5.028 should be aligned with the version of perl actually # Below, 5.028 should be aligned with the version of perl actually
# bundled in Buildroot: # bundled in Buildroot:
skipping to change at line 707 skipping to change at line 708
return $license; return $license;
} }
while (my ($distname, $dist) = each %dist) { while (my ($distname, $dist) = each %dist) {
my $fsname = fsname( $distname ); my $fsname = fsname( $distname );
my $dirname = q{package/} . $fsname; my $dirname = q{package/} . $fsname;
my $cfgname = $dirname . q{/Config.in}; my $cfgname = $dirname . q{/Config.in};
my $mkname = $dirname . q{/} . $fsname . q{.mk}; my $mkname = $dirname . q{/} . $fsname . q{.mk};
my $hashname = $dirname . q{/} . $fsname . q{.hash}; my $hashname = $dirname . q{/} . $fsname . q{.hash};
my $brname = brname( $fsname ); my $brname = brname( $fsname );
my $testname = q{support/testing/tests/package/test_} . lc $brname . q{.py}; my $testdir = q{support/testing/tests/package};
my $testname = $testdir . q{/test_} . lc $brname . q{.py};
unless (-d $dirname) { unless (-d $dirname) {
mkdir $dirname; make_path $dirname;
$new_pkgs = 1; $new_pkgs = 1;
} }
if ($need_target{$distname} && ($force || !-f $cfgname)) { if ($need_target{$distname} && ($force || !-f $cfgname)) {
$dist->{abstract} =~ s|\s+$||; $dist->{abstract} =~ s|\s+$||;
$dist->{abstract} .= q{.} unless $dist->{abstract} =~ m|\.$|; $dist->{abstract} .= q{.} unless $dist->{abstract} =~ m|\.$|;
my $abstract = wrap( q{}, qq{\t }, $dist->{abstract} ); my $abstract = wrap( q{}, qq{\t }, $dist->{abstract} );
my $homepage = $dist->{resources}->{homepage} || qq{https://metacpan.org /release/${distname}}; my $homepage = $dist->{resources}->{homepage} || qq{https://metacpan.org /release/${distname}};
say qq{write ${cfgname}} unless $quiet; say qq{write ${cfgname}} unless $quiet;
open my $fh, q{>}, $cfgname; open my $fh, q{>}, $cfgname;
say {$fh} qq{config BR2_PACKAGE_${brname}}; say {$fh} qq{config BR2_PACKAGE_${brname}};
skipping to change at line 807 skipping to change at line 809
close $fh; close $fh;
} }
if (want_test( $distname ) && ($force || !-f $testname)) { if (want_test( $distname ) && ($force || !-f $testname)) {
my $classname = $distname; my $classname = $distname;
$classname =~ s|-||g; $classname =~ s|-||g;
my $modname = $distname; my $modname = $distname;
$modname =~ s|-|::|g; $modname =~ s|-|::|g;
my $mark = $is_xs{$distname} ? q{ XS} : q{}; my $mark = $is_xs{$distname} ? q{ XS} : q{};
my @indirect = (get_indirect_dependencies( $distname )); my @indirect = (get_indirect_dependencies( $distname ));
say qq{write ${testname}} unless $quiet; say qq{write ${testname}} unless $quiet;
make_path $testdir unless -d $testdir;
open my $fh, q{>}, $testname; open my $fh, q{>}, $testname;
say {$fh} qq{from tests.package.test_perl import TestPerlBase}; say {$fh} qq{from tests.package.test_perl import TestPerlBase};
say {$fh} qq{}; say {$fh} qq{};
say {$fh} qq{}; say {$fh} qq{};
say {$fh} qq{class TestPerl${classname}(TestPerlBase):}; say {$fh} qq{class TestPerl${classname}(TestPerlBase):};
say {$fh} qq{ """}; say {$fh} qq{ """};
say {$fh} qq{ package:}; say {$fh} qq{ package:};
say {$fh} qq{ ${distname}${mark}}; say {$fh} qq{ ${distname}${mark}};
say {$fh} qq{ direct dependencies:}; say {$fh} qq{ direct dependencies:};
foreach my $dep (sort @{$deps_runtime{$distname}}) { foreach my $dep (sort @{$deps_runtime{$distname}}) {
 End of changes. 4 change blocks. 
2 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)