[libconfig-model-dpkg-perl] 01/04: Copyright license text: fix retrieval of license text
dod at debian.org
dod at debian.org
Fri Oct 31 13:20:29 UTC 2014
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
More information about the Pkg-perl-cvs-commits
mailing list