jeans/motioneyeos
jeans/motioneyeos
1
0
Fork 0
mirror of https://github.com/motioneye-project/motioneyeos.git synced 2025-07-28 05:36:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

scancpan: warn on suspicious host dependencies

Browse Source 
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
This commit is contained in:
Francois Perrad 2018-08-13 18:15:52 +02:00 committed by Thomas Petazzoni
parent 6b33b7ba51
commit a96680891a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/scancpan
View File

@ -526,6 +526,12 @@ my $mirror = 'http://cpan.metacpan.org'; # a CPAN mirror
my $mcpan = MetaCPAN::API::Tiny->new(base_url => 'http://fastapi.metacpan.org/v1'); my $mcpan = MetaCPAN::API::Tiny->new(base_url => 'http://fastapi.metacpan.org/v1');
my $ua = HTTP::Tiny->new(); my $ua = HTTP::Tiny->new();
my %white_list = (
'Module-Build' => 1,
'Module-Build-Tiny' => 1,
);
my @info = ();
sub get_checksum { sub get_checksum {
my ($url) = @_; my ($url) = @_;
my ($path) = $url =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|; my ($path) = $url =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|;
@ -607,6 +613,8 @@ sub fetch {
} }
else { # configure, build else { # configure, build
$build{$distname} = 1; $build{$distname} = 1;
push @info, qq{[$name] suspicious dependency on $distname}
unless exists $white_list{$distname};
} }
} }
$deps_build{$name} = [keys %build]; $deps_build{$name} = [keys %build];
@ -765,6 +773,8 @@ foreach my $distname (keys %need_target) {
say qq{${cfgname} must contain the following lines:}; say qq{${cfgname} must contain the following lines:};
say join qq{\n}, sort keys %pkg; say join qq{\n}, sort keys %pkg;
say join qq{\n}, @info;
__END__ __END__
=head1 NAME =head1 NAME