Commit b7b2a886d7c1e65f0ad25d447c0ee7472f51a967 - libdebian-copyright-perl

Refresh patches. Debian Janitor 1 year, 3 months ago

2 changed file(s) with 31 addition(s) and 19 deletion(s). Raw diff Collapse all Expand all

+16

-10

debian/patches/files-excluded.patch less more

5	5	Forwarded: https://rt.cpan.org/Ticket/Display.html?id=112637
6	6	Bug: https://rt.cpan.org/Ticket/Display.html?id=112637
7	7
8		--- a/t/01.basic.t
9		+++ b/t/01.basic.t
	8	Index: libdebian-copyright-perl.git/t/01.basic.t
	9	===================================================================
	10	--- libdebian-copyright-perl.git.orig/t/01.basic.t
	11	+++ libdebian-copyright-perl.git/t/01.basic.t
10	12	@@ -1,4 +1,4 @@
11	13	-use Test::More tests => 37;
12	14	+use Test::More tests => 38;
13	15
14	16	use Debian::Copyright;
15	17
16		@@ -12,6 +12,7 @@
	18	@@ -12,6 +12,7 @@ my $copyright = Debian::Copyright->new;
17	19	isa_ok($copyright, 'Debian::Copyright');
18	20	$copyright->read('t/data/copyright');
19	21	like($copyright->header, qr{\AFormat:\s}xms, 'Header stanza');

21	23	is($copyright->files->Length, 2, 'files length');
22	24	is($copyright->files->Keys(0), '*', 'key files(0)');
23	25	is($copyright->files->Values(0)->Files, '*', 'files(0)->Files');
24		--- a/t/data/copyright
25		+++ b/t/data/copyright
26		@@ -2,6 +2,7 @@
	26	Index: libdebian-copyright-perl.git/t/data/copyright
	27	===================================================================
	28	--- libdebian-copyright-perl.git.orig/t/data/copyright
	29	+++ libdebian-copyright-perl.git/t/data/copyright
	30	@@ -2,6 +2,7 @@ Format: http://www.debian.org/doc/packag
27	31	Upstream-Name: pkg-components
28	32	Upstream-Contact: Nicholas Bamber <nicholas@periapt.co.uk>
29	33	Source: http://github.com/periapt/pkg-components

31	35
32	36	Files: *
33	37	Copyright:
34		--- a/lib/Debian/Copyright/Stanza/Header.pm
35		+++ b/lib/Debian/Copyright/Stanza/Header.pm
36		@@ -43,6 +43,8 @@
	38	Index: libdebian-copyright-perl.git/lib/Debian/Copyright/Stanza/Header.pm
	39	===================================================================
	40	--- libdebian-copyright-perl.git.orig/lib/Debian/Copyright/Stanza/Header.pm
	41	+++ libdebian-copyright-perl.git/lib/Debian/Copyright/Stanza/Header.pm
	42	@@ -43,6 +43,8 @@ replaced with underscores.
37	43
38	44	=item Copyright
39	45

42	48	=back
43	49
44	50	=cut
45		@@ -62,6 +64,7 @@
	51	@@ -62,6 +64,7 @@ use constant fields => qw (
46	52	Comment
47	53	License
48	54	Copyright

+15

-9

debian/patches/reproducible-copyright.patch less more

8	8	Forwarded: https://rt.cpan.org/Ticket/Display.html?id=108121
9	9	Bug: https://rt.cpan.org/Ticket/Display.html?id=108121
10	10
11		--- a/lib/Debian/Copyright.pm
12		+++ b/lib/Debian/Copyright.pm
13		@@ -161,6 +161,9 @@
	11	Index: libdebian-copyright-perl.git/lib/Debian/Copyright.pm
	12	===================================================================
	13	--- libdebian-copyright-perl.git.orig/lib/Debian/Copyright.pm
	14	+++ libdebian-copyright-perl.git/lib/Debian/Copyright.pm
	15	@@ -161,6 +161,9 @@ reference.
14	16	sub write {
15	17	my ( $self, $file ) = @_;
16	18

20	22	my @stanzas = (
21	23	$self->header,
22	24	$self->files->Values,
23		--- a/lib/Debian/Copyright/Stanza/OrSeparated.pm
24		+++ b/lib/Debian/Copyright/Stanza/OrSeparated.pm
25		@@ -82,7 +82,7 @@
	25	Index: libdebian-copyright-perl.git/lib/Debian/Copyright/Stanza/OrSeparated.pm
	26	===================================================================
	27	--- libdebian-copyright-perl.git.orig/lib/Debian/Copyright/Stanza/OrSeparated.pm
	28	+++ libdebian-copyright-perl.git/lib/Debian/Copyright/Stanza/OrSeparated.pm
	29	@@ -82,7 +82,7 @@ sub as_string
26	30	{
27	31	my $self = shift;
28	32	my $body = exists $self->{body} ? "\n$self->{body}" : "";

31	35	}
32	36
33	37	=head2 equals
34		--- a/t/01.basic.t
35		+++ b/t/01.basic.t
	38	Index: libdebian-copyright-perl.git/t/01.basic.t
	39	===================================================================
	40	--- libdebian-copyright-perl.git.orig/t/01.basic.t
	41	+++ libdebian-copyright-perl.git/t/01.basic.t
36	42	@@ -1,4 +1,4 @@
37	43	-use Test::More tests => 36;
38	44	+use Test::More tests => 37;
39	45
40	46	use Debian::Copyright;
41	47
42		@@ -61,7 +61,8 @@
	48	@@ -61,7 +61,8 @@ is($copyright->licenses->Keys(0), 'Artis
43	49	like($copyright->licenses->Values(0)->License, qr/\AArtistic\s+This\sprogram/xms, 'licenses(0)->Files');
44	50	is($copyright->files->Keys(2), 'test/*', 'key files(2)');
45	51	is($copyright->files->Values(2)->Files, 'test/*', 'files(2)->Files');