[libconfig-model-dpkg-perl] 09/19: scanner: use warning instead of say for user messages

[dod at debian.org]

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 5bd9a06831e64c7f4af0b2df860f6af4ac184a88
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Dec 26 17:55:24 2015 +0100

    scanner: use warning instead of say for user messages
---
 lib/Dpkg/Copyright/Scanner.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index 6562812..b137752 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -199,7 +199,7 @@ sub scan_files ( %args ) {
         }
     }
 
-    say "No copyright information found" unless keys %$files;
+    warn "No copyright information found" unless keys %$files;
 
     my $merged_c_info = __squash_copyrights_years (\@copyrights_by_id) ;
 
@@ -253,7 +253,7 @@ sub __pack_copyright ($r) {
                 $span->set_range_as_string($year, $owner);
             };
             if ($@) {
-                say "Invalid year range in copyright: $r";
+                warn "Invalid year range in copyright: $r";
                 return $r;
             }
         }
@@ -374,7 +374,7 @@ sub __coalesce_copyright_years($entries, $owners) {
                 $span->set_range_as_string($years[$i], 1);
             };
             if ($@) {
-                say "Invalid year range: ",$years[$i];
+                warn "Invalid year range: ",$years[$i];
                 return ();
             }
         }
@@ -466,13 +466,13 @@ sub __load_fill_blank_data ($current_dir) {
     if ($debian->is_dir) {
         my @fills = $debian->children(qr/fill\.copyright\.blanks\.yml$/);
 
-        say "Note: loading @fills fixes" if @fills and not $quiet;
+        warn "Note: loading @fills fixes" if @fills and not $quiet;
         foreach my $file ( @fills) {
             my $yaml = $file->slurp_utf8;
             my $data = Load $yaml;
             foreach my $path (sort keys %$data) {
                 if ($fill_blanks{$path}) {
-                    say "Warning: skipping duplicated fill blank path $path from file $file";
+                    warn "Warning: skipping duplicated fill blank path $path from file $file";
                 }
                 else {
                     $fill_blanks{$path} = $data->{$path};

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git