[libconfig-model-dpkg-perl] 02/06: copyright update: normalise existing copyright data (Closes: #862368)

[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 10f0fc5f9beec9606790e986df472f13f7ec23f4
Author: Dominique Dumont <dod at debian.org>
Date:   Wed May 17 16:26:29 2017 +0200

    copyright update: normalise existing copyright data (Closes: #862368)
    
    so the existing copyright data can be merged with data coming from
    license_check (where the copyright is already normalised)
---
 lib/Config/Model/Dpkg/Copyright.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index a8ca8fd..5646f1e 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -14,7 +14,7 @@ use Path::Tiny;
 use Data::Dumper;
 
 use Config::Model::DumpAsData;
-use Dpkg::Copyright::Scanner qw/scan_files __squash __pack_files __create_tree_leaf_from_paths/;
+use Dpkg::Copyright::Scanner qw/scan_files __squash __pack_files __pack_copyright __create_tree_leaf_from_paths/;
 use Software::LicenseUtils;
 use Scalar::Util qw/weaken/;
 use Storable qw/dclone/;
@@ -69,6 +69,9 @@ sub update ($self, %args) {
         my $node = $files_obj->fetch_with_id($paths_str) ;
         my $data = $dumper->dump_as_data( node => $node );
 
+        # normalise existing copyright data (mandatory parameter, no need to test)
+        $data->{Copyright} = __pack_copyright($data->{Copyright});
+
         if ($paths_str =~ m!^debian/!) {
             $debian_paths{$paths_str} = $data;
         }

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