[libconfig-model-dpkg-perl] 01/03: copyright: push value to cope with double entries for list element ...

[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 6f5ec14a4d329099ded3e3bf2f35311ee600ed9c
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Sep 7 18:09:45 2013 +0200

    copyright: push value to cope with double entries for list element ...
    
    ... to avoid a bug similar to #721670
---
 lib/Config/Model/Backend/Dpkg/Copyright.pm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/Backend/Dpkg/Copyright.pm b/lib/Config/Model/Backend/Dpkg/Copyright.pm
index c767186..2ac4e91 100644
--- a/lib/Config/Model/Backend/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Backend/Dpkg/Copyright.pm
@@ -227,8 +227,9 @@ sub read {
 sub _store_line_based_list {
     my ($object,$v,$check) = @_ ;
     my @v = grep {length($_) } split /\s*\n\s*/,$v ;
-    $logger->debug("_store_line_based_list with check $check on ".$object->name." = ('".join("','", at v),"')");
-    $object->store_set(\@v, check => $check);
+    $logger->debug("_store_line_based_list with check $check on ".$object->name." = ('".join("','", at v),"')")
+        if $logger->is_debug;
+    $object->push_x(values => \@v, check => $check);
 }
 
 sub _store_text_no_synopsis {

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