[libconfig-model-dpkg-perl] 15/33: C::M::D::Copyright: don't remove during update correct entries...

[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 9cd13dd7cfcbe5dadd35c98555ae69348111abc5
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Mar 26 18:40:11 2015 +0100

    C::M::D::Copyright: don't remove during update correct entries...
    
    ... with unknown copyright or license when original data is present.
---
 lib/Config/Model/Dpkg/Copyright.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index a300432..035c0e3 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -59,13 +59,13 @@ sub update ($self, %args) {
         my ($paths, $c, $l) = $data->@*;
         #say "load '@$paths' with '$c' ('$l')";
 
+        next if $c eq 'no-info-found';
+
         # remove paths from old stuff that are found in current list
         my $norm_path_str = $self->normalize_path($paths);
         delete $old_files{ $norm_path_str };
         map { delete $old_split_files{$_} } @$paths;
 
-        next if $c eq 'no-info-found';
-
         $self->load(qq!Files:"$norm_path_str" Copyright="$c"!);
 
         my $lsn = $license_short_name{$l} ||=[];

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