[libconfig-model-dpkg-perl] 25/27: C::M::D::Copyright: updated comments

[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 1fba55b1e7398179338fe170e0b7c97ed0bb9fb2
Author: Dominique Dumont <dod at debian.org>
Date:   Mon Jan 5 20:55:47 2015 +0100

    C::M::D::Copyright: updated comments
---
 lib/Config/Model/Dpkg/Copyright.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index da05b99..ed5bdce 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -32,6 +32,7 @@ sub update ($self) {
         # license is unknown
         next if $l eq 'UNKNOWN' and $short_obj->fetch();
 
+        # handle the case where license is something like GPL-2 or GPL-3
         foreach my $sub_l (split / or /, $l) {
             my $license_object ;
             eval {
@@ -47,8 +48,6 @@ sub update ($self) {
 
         $short_obj->store($l);
 
-        # not good for GPL-2 or gpl-3 need to look into global license
-
         if ($short_obj->has_error) {
             my $text="Please fill license $l from header of ".$paths->[0];
             $c_obj->load(qq!License full_license="$text" 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