[libconfig-model-dpkg-perl] 05/08: Scanner: improve copyright cleanup

[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 de9d0e2eeb5c34eb6ca2dd56542f4bc9bf83843e
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Jan 18 21:09:03 2015 +0100

    Scanner: improve copyright cleanup
---
 lib/Dpkg/Copyright/Scanner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index c7238f0..c34ceca 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -130,7 +130,7 @@ sub __pack_copyright ($r) {
 
     return $r if $r eq 'no-info-found';
     my %cop;
-    $r =~ /^\s+|\s+$/g;
+    $r =~ /^[\s\W]+|[\s\W]+$/g;
     foreach my $c ( split( m!\s*/\s*!, $r)) {
         my @data = split /(?<=\d)[,\s]+/, $c;
         my $owner = pop @data;

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