[libsoftware-license-perl] 07/09: added patch headers and pod doc
dod at debian.org
dod at debian.org
Tue Sep 23 11:57:06 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 29592a5ffdf4b0e8950b43140da08183ee8fec42
Author: Dominique Dumont <dod at debian.org>
Date: Sat Sep 20 11:52:26 2014 +0200
added patch headers and pod doc
---
debian/patches/add-debian-text-method | 16 ++++++++++++++++
debian/patches/add-expat-short-name | 5 +++++
debian/patches/short-name-fallback | 19 ++++++++++++++-----
3 files changed, 35 insertions(+), 5 deletions(-)
diff --git a/debian/patches/add-debian-text-method b/debian/patches/add-debian-text-method
index 1469994..e6c9900 100644
--- a/debian/patches/add-debian-text-method
+++ b/debian/patches/add-debian-text-method
@@ -1,3 +1,7 @@
+Description: Add debian_text method
+ This method returns the license summary (if available)
+ or the full license text.
+Author: dod
--- a/lib/Software/License.pm
+++ b/lib/Software/License.pm
@@ -82,6 +82,18 @@
@@ -19,6 +23,18 @@
#pod =method license
#pod
#pod This method returns the full text of the license.
+@@ -276,6 +288,11 @@
+ containing the whole license will be in C</usr/share/common-licenses/>
+ directory. (Available only on Debian)
+
++=head2 debian_text
++
++This method returns a summary of the license (if available) or the full text
++of the license (Available only on Debian)
++
+ =head2 license
+
+ This method returns the full text of the license.
--- /dev/null
+++ b/t/debian-text.t
@@ -0,0 +1,29 @@
diff --git a/debian/patches/add-expat-short-name b/debian/patches/add-expat-short-name
index 947eee5..07c714d 100644
--- a/debian/patches/add-expat-short-name
+++ b/debian/patches/add-expat-short-name
@@ -1,3 +1,8 @@
+Description: Add expat short name
+ Expat is accepted and returns a MIT license object.
+ This is Debian specific.
+Author: dod
+Applied-Upstream: NA
--- a/lib/Software/LicenseUtils.pm
+++ b/lib/Software/LicenseUtils.pm
@@ -173,6 +173,7 @@
diff --git a/debian/patches/short-name-fallback b/debian/patches/short-name-fallback
index 600ae20..d1e29f4 100644
--- a/debian/patches/short-name-fallback
+++ b/debian/patches/short-name-fallback
@@ -1,3 +1,6 @@
+Description: Short name fallback
+ Patch short_name to fallback on a Software::License class if short name is unknown
+Author: dod
--- a/lib/Software/LicenseUtils.pm
+++ b/lib/Software/LicenseUtils.pm
@@ -212,14 +212,13 @@
@@ -18,12 +21,18 @@
return $lic_class->new( { %$arg, @infos } );
}
-@@ -289,4 +288,4 @@
- This is free software; you can redistribute it and/or modify it under
- the same terms as the Perl 5 programming language system itself.
+@@ -276,7 +275,10 @@
+
+ Create a new L<Software::License> object from the license specified
+ with C<short_name>. Known short license names are C<GPL-*>, C<LGPL-*> ,
+-C<Artistic> and C<Artistic-*>
++C<Artistic> and C<Artistic-*>. If the short name is not know, this
++method will try to create a license object with C<Software::License::> and
++the specified short name (e.g. C<Software::License::MIT> with
++C<< short_name => 'MIT' >>.
+
+ =head1 AUTHOR
--=cut
-+=CUT
--- a/t/short_name.t
+++ b/t/short_name.t
@@ -2,7 +2,7 @@
--
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