Gentoo Archives: gentoo-commits

From: Kent Fredric <kentfredric@×××××.com>
To: gentoo-commits@l.g.o
Subject: [gentoo-commits] proj/perl-overlay:master commit in: scripts/
Date: Sat, 28 Feb 2015 23:17:34
Message-Id: 1425094448.01ed23965ec3561744abe64fd0ada6b89696eb53.kent@gentoo
1 commit: 01ed23965ec3561744abe64fd0ada6b89696eb53
2 Author: Pavel Denisov <pavel.a.denisov <AT> gmail <DOT> com>
3 AuthorDate: Sat Feb 28 03:15:38 2015 +0000
4 Commit: Kent Fredric <kentfredric <AT> gmail <DOT> com>
5 CommitDate: Sat Feb 28 03:34:08 2015 +0000
6 URL: http://sources.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=01ed2396
7
8 [scripts/gen_ebuild.pl] add special handling for perl_5 license
9
10 ---
11 scripts/gen_ebuild.pl | 4 +++-
12 1 file changed, 3 insertions(+), 1 deletion(-)
13
14 diff --git a/scripts/gen_ebuild.pl b/scripts/gen_ebuild.pl
15 index a54a665..e5065e6 100755
16 --- a/scripts/gen_ebuild.pl
17 +++ b/scripts/gen_ebuild.pl
18 @@ -197,7 +197,9 @@ if ( scalar @$lics == 1 ) {
19 $fh->say( 'LICENSE=" ' . $lics->[0] . '"' );
20 }
21 elsif ( scalar @$lics > 1 ) {
22 - $fh->say( 'LICENSE=" || ( ' . ( join q{ }, @$lics ) . ' )"' );
23 + if ( not ( $lics->[0] eq 'Artistic' && $lics->[1] eq 'GPL-2' ) ) {
24 + $fh->say( 'LICENSE=" || ( ' . ( join q{ }, @$lics ) . ' )"' );
25 + }
26 }
27 else {
28 $fh->say('LICENSE=""');