[libconfig-model-dpkg-perl] 01/04: Copyright license text: fix retrieval of license text

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch jessie
in repository libconfig-model-dpkg-perl.

commit f3eb47f1a39b18fe8f63e58151bdf1d4abf78f5e
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Oct 31 13:46:54 2014 +0100

    Copyright license text: fix retrieval of license text
---
 lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl b/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
index 18ef233..12eb39a 100644
--- a/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
+++ b/lib/Config/Model/models/Dpkg/Copyright/LicenseSpec.pl
@@ -24,17 +24,20 @@
           'formula' => 'require Software::LicenseUtils ;
 my $lic = &index( - ) ;
 my $h = { short_name => $lic, holder => \'foo\' } ;
+my $text;
 
 if (defined $lic and $lic) {
    # no need to fail if short_name is unknown
    eval {
-       Software::LicenseUtils->new_from_short_name($h)->debian_text ;
+       $text = Software::LicenseUtils->new_from_short_name($h)->debian_text ;
    } ;
 
    if ($@ and ! $self->{data}) {
        print "Cannot find license text for $lic\\n" ;
    }
-}',
+}
+
+$text;',
           '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