[libconfig-model-dpkg-perl] 01/07: Fill license text with summary or full license text

[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 9632839cc197ad4bf734b474f39f4f8d74282320
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Sep 20 17:09:09 2014 +0200

    Fill license text with summary or full license text
---
 lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl b/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
index c50471d..8ad57a0 100644
--- a/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
+++ b/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
@@ -29,8 +29,12 @@ my $h = {
 
 # no need to fail if short_name is unknown
 eval {
-  Software::LicenseUtils->new_from_short_name($h)->summary ; 
-} ;',
+  Software::LicenseUtils->new_from_short_name($h)->debian_text ; 
+} ;
+
+if ($@) {
+   print "Cannot find license text for ".$h->{short_name}."\\n" ;
+}',
           'undef_is' => '\'\'',
           'use_eval' => '1'
         },

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