[libconfig-model-dpkg-perl] 12/14: Copyright update: don't show meaningless changes..

[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 8bdee9e907ab7abae804614fd6e03ff66f88a0b4
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Feb 27 19:05:20 2016 +0100

    Copyright update: don't show meaningless changes..
    
    Update works by clearing all entries and then updating them with
    information merged from files and old copyright. Thus everyhing changes
    when updated is run. There's no need to display that.
---
 lib/Config/Model/Dpkg/Copyright.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index f407e8a..c1fbbe5 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -287,6 +287,9 @@ sub update ($self, %args) {
     # normalized again after all the modifications
     $self->load("Files:.sort");
 
+    $self->instance->clear_changes; # too many changes to show users
+    $self->notify_change(note => "updated copyright from source file"); # force a save
+
     my @msgs = (
         "Please follow the instructions given in ".__PACKAGE__." man page,",
         "section \"Tweak results\" if some license and copyright entries are wrong.",

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