This is an automated email from the git hooks/post-receive script. dod pushed a commit to branch master in repository libconfig-model-dpkg-perl.
commit 50fea3555c7abd49340f483606c10ea18a0428e4 Author: Dominique Dumont <[email protected]> Date: Sun Feb 21 11:41:29 2016 +0100 Scanner: reformat warn msg about missing info --- lib/Dpkg/Copyright/Scanner.pm | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm index 72f2cb9..48656c4 100644 --- a/lib/Dpkg/Copyright/Scanner.pm +++ b/lib/Dpkg/Copyright/Scanner.pm @@ -200,6 +200,7 @@ sub scan_files ( %args ) { my %copyrights ; my $files = {}; my $id = 1; + my @no_info_list; foreach my $line (sort @lines) { chomp $line; @@ -264,15 +265,24 @@ sub scan_files ( %args ) { if ( $l =~/unknown/i and $is_debian_package ) { push @no_info_found, 'license'; } - _warn "Path $f has no ".join(' or ', @no_info_found)." info. You may want to add a line in debian/fill.copyright.blanks.yml\n" - if @no_info_found; + + push @no_info_list , [$f , @no_info_found ] if @no_info_found; my $has_info = @no_info_found < 2; # say "Storing '$f' : '$c' '$l' has_info: $has_info id $id"; $files->{$f} = $copyrights{$c}{$l} //= ($has_info ? $id++ : 0); } - my @notused = grep { ! $fill_blank_data->{$_}{used} and $_; } sort keys %$fill_blank_data ; + if (@no_info_list) { + my $msg= "The following paths are missing information:\n"; + map {my ($p,@i) = $_->@*; + $msg .= "- $p: missing ".join(' and ', @i)."\n"; + } @no_info_list; + $msg .= "You may want to add a line in debian/fill.copyright.blanks.yml\n\n"; + _warn $msg; + } + + my @notused = grep { ! $fill_blank_data->{$_}{used} and $_; } sort keys %$fill_blank_data ; if (@notused) { _warn "Warning: the following entries from fill.copyright.blanks.yml were not used\n- '" .join("'\n- '",@notused)."'\n"; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
