[libconfig-model-dpkg-perl] 04/07: scanner: fix parsing of multi copyright owners
dod at debian.org
dod at debian.org
Fri May 8 17:04:14 UTC 2015
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 45d51abcce67fb74a808e06928c62a879da43942
Author: Dominique Dumont <dod at debian.org>
Date: Fri May 8 18:43:35 2015 +0200
scanner: fix parsing of multi copyright owners
---
lib/Dpkg/Copyright/Scanner.pm | 2 +-
t/scanner/pack_copyright.t | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index c33a377..1685e80 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -180,7 +180,7 @@ sub __pack_copyright ($r) {
return $r if $r eq 'no-info-found';
my %cop;
$r =~ /^[\s\W]+|[\s\W]+$/g;
- foreach my $c ( split( m!\s*/\s*!, $r)) {
+ foreach my $c ( split( m!\s+/\s+!, $r)) {
my ($owner, @data) = __split_copyright($c);
return $r unless defined $owner;
$cop{$owner} ||= [] ;
diff --git a/t/scanner/pack_copyright.t b/t/scanner/pack_copyright.t
index 170b7ea..89e3c77 100644
--- a/t/scanner/pack_copyright.t
+++ b/t/scanner/pack_copyright.t
@@ -25,6 +25,10 @@ my @tests = (
[
q!2004-2015, Oliva f00 Oberto / 2001-2010, Paul bar Stevenson !,
"2004-2015, Oliva f00 Oberto\n 2001-2010, Paul bar Stevenson"
+ ],
+ [
+ '2005, Thomas Fuchs (http://script.aculo.us, http://mir.aculo.us) / 2005, Michael Schuerig (http://www.schuerig.de/michael/) / 2005, Jon Tirsen (http://www.tirsen.com)',
+ "2005, Thomas Fuchs (http://script.aculo.us, http://mir.aculo.us)\n 2005, Michael Schuerig (http://www.schuerig.de/michael/)\n 2005, Jon Tirsen (http://www.tirsen.com)"
]
);
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git
More information about the Pkg-perl-cvs-commits
mailing list