[libconfig-model-dpkg-perl] 01/02: Dpkg::Copyright: clean up comma from Files line

[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 9695b7f7261c534a7a0f033c42ffb59705f53108
Author: Dominique Dumont <dod at debian.org>
Date:   Mon Sep 2 21:26:09 2013 +0200

    Dpkg::Copyright: clean up comma from Files line
---
 lib/Config/Model/Backend/Dpkg/Copyright.pm |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Config/Model/Backend/Dpkg/Copyright.pm b/lib/Config/Model/Backend/Dpkg/Copyright.pm
index 4fa2818..18d89ed 100644
--- a/lib/Config/Model/Backend/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Backend/Dpkg/Copyright.pm
@@ -96,6 +96,11 @@ sub read {
                 my $a_str = $a ? "altered: '$a' ":'' ;
                 $logger->debug("Found Files paragraph line $l, $a_str($v)");
             }
+            if ($v =~ /,/) {
+                $logger->warn("Found comma in Files line, cleaning up");
+                $v =~ s/ *,+[ \t]*/ /g;
+                $v =~ s/^\s*|\s*$//g;
+            }
             $file_paragraph{$v} = $section_ref ;
             push @file_names, $v ;
         }

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