[libconfig-model-dpkg-perl] 03/11: removed debug traces

[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 a26da32648dade31fca0296912b6cdef0a99c48b
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Mar 15 18:34:36 2015 +0100

    removed debug traces
---
 lib/Config/Model/Dpkg/Copyright.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index 92235d5..d789aed 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -38,7 +38,7 @@ sub update ($self, %args) {
     my %license_short_name;
     foreach my $data (@copyright_data) {
         my ($paths, $c, $l) = $data->@*;
-        say "load '@$paths' with '$c' ('$l')";
+        #say "load '@$paths' with '$c' ('$l')";
 
         # remove paths from old stuff that are found in current list
         delete $old_files{ join (' ', sort @$paths)} ;
@@ -63,7 +63,7 @@ sub update ($self, %args) {
             # use a global license, *then* add short_name info in each Files section
             $self->fill_global_license($l, $text);
             foreach my $paths (@$pathset) {
-                say "load '@$paths' with '$l' (global)";
+                #say "load '@$paths' with '$l' (global)";
                 $self->load( qq!Files:"@$paths" License short_name="$l"!);
             }
         }
@@ -75,10 +75,10 @@ sub update ($self, %args) {
                 # skip when file contains actual information and extracted
                 # license is unknown
                 my $current_name = $lic_obj->grab("short_name")->fetch( check => 'no') //'';
-                say "Single license $l for path @$paths (current '$current_name')";
+                #say "Single license $l for path @$paths (current '$current_name')";
                 next if $l eq 'UNKNOWN' and $current_name;
 
-                say "load '@$paths' with '$l' (single)";
+                #say "load '@$paths' with '$l' (single)";
                 $lic_obj->load( qq!full_license="$text" short_name="$l"!);
             }
         }
@@ -130,7 +130,7 @@ sub update ($self, %args) {
 
 sub fill_global_license ($self, $l, $text) {
 
-    say "Adding global license $l";
+    #say "Adding global license $l";
     # handle the case where license is something like GPL-2 or GPL-3
     my @names = $l =~ / or / ? split / or /, $l : ($l);
 

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