[libsoftware-license-perl] 04/07: refreshed patches
dod at debian.org
dod at debian.org
Mon Apr 7 18:32:52 UTC 2014
This is an automated email from the git hooks/post-receive script.
dod pushed a commit to branch master
in repository libsoftware-license-perl.
commit 22a33a121416b67a1f6e02e2b58b2bfd5550e68f
Author: Dominique Dumont <dod at debian.org>
Date: Mon Apr 7 17:07:57 2014 +0200
refreshed patches
---
debian/patches/add_or_later_clause | 4 ++--
debian/patches/backward-compat | 6 +++---
debian/patches/summary_method | 31 ++++++++++++++++++-------------
3 files changed, 23 insertions(+), 18 deletions(-)
diff --git a/debian/patches/add_or_later_clause b/debian/patches/add_or_later_clause
index fd320e6..a558e43 100644
--- a/debian/patches/add_or_later_clause
+++ b/debian/patches/add_or_later_clause
@@ -1,7 +1,7 @@
Description: add or_later license parameter
--- a/lib/Software/License.pm
+++ b/lib/Software/License.pm
-@@ -160,9 +160,11 @@
+@@ -151,9 +151,11 @@
Carp::confess "couldn't build $which section" unless
my $template = $self->section_data($which);
@@ -29,7 +29,7 @@ Description: add or_later license parameter
+ 'LGPL-3.0+' => [ 'Software::License::LGPL_3_0', or_later => 1 ],
);
- # =method new_from_short_name
+ #pod =method new_from_short_name
@@ -207,10 +214,12 @@
Carp::croak "Unknow license with short name $short"
unless $short_name{$short};
diff --git a/debian/patches/backward-compat b/debian/patches/backward-compat
index 9006801..1c48d0a 100644
--- a/debian/patches/backward-compat
+++ b/debian/patches/backward-compat
@@ -10,9 +10,9 @@ Description: ensure backward compatibility
+use Software::LicenseUtils;
+
- # =head1 SYNOPSIS
- #
- # my $license = Software::License::Discordian->new({
+ #pod =head1 SYNOPSIS
+ #pod
+ #pod my $license = Software::License::Discordian->new({
@@ -31,6 +33,12 @@
sub new {
my ($class, $arg) = @_;
diff --git a/debian/patches/summary_method b/debian/patches/summary_method
index 92e92ef..562091f 100644
--- a/debian/patches/summary_method
+++ b/debian/patches/summary_method
@@ -1,25 +1,30 @@
Description: new method
--- a/lib/Software/License.pm
+++ b/lib/Software/License.pm
-@@ -68,6 +68,21 @@
+@@ -68,6 +68,12 @@
sub notice { shift->_fill_in('NOTICE') }
-+# =method summary
-+#
-+# This method returns a summary of the license. This summary must
-+# refer to a file containing the whole license. On Debian system, the file
-+# containing the whole license will be in C</usr/share/common-licenses/>
-+# directory.
-+#
-+# =cut
-+
+sub summary {
+ my ($self,$distro) = @_;
+ $distro ||= 'debian' ;
+ $self->_fill_in(uc($distro).'-SUMMARY');
+}
+
- # =method license
- #
- # This method returns the full text of the license.
+ #pod =method license
+ #pod
+ #pod This method returns the full text of the license.
+@@ -253,6 +259,13 @@
+ copyright holder and year of copyright, as well as an indication of the license
+ under which the software is distributed.
+
++=head2 summary
++
++This method returns a summary of the license. This summary must
++refer to a file containing the whole license. On Debian system, the file
++containing the whole license will be in C</usr/share/common-licenses/>
++directory.
++
+ =head2 license
+
+ This method returns the full text of the license.
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoftware-license-perl.git
More information about the Pkg-perl-cvs-commits
mailing list