1 |
civil 14/04/30 14:47:53 |
2 |
|
3 |
Added: src_prepare-v50180002.eblit |
4 |
Log: |
5 |
Add fixes for gentoo-freebsd prefix and freemint prefix. |
6 |
Should fix 464784 and 507182 |
7 |
|
8 |
(Portage version: 2.2.10/cvs/Linux x86_64, signed Manifest commit with key 0xA832680F) |
9 |
|
10 |
Revision Changes Path |
11 |
1.1 dev-lang/perl/files/eblits/src_prepare-v50180002.eblit |
12 |
|
13 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/eblits/src_prepare-v50180002.eblit?rev=1.1&view=markup |
14 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/eblits/src_prepare-v50180002.eblit?rev=1.1&content-type=text/plain |
15 |
|
16 |
Index: src_prepare-v50180002.eblit |
17 |
=================================================================== |
18 |
# Copyright 1999-2014 Gentoo Foundation |
19 |
# Distributed under the terms of the GNU General Public License v2 |
20 |
# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/files/eblits/src_prepare-v50180002.eblit,v 1.1 2014/04/30 14:47:53 civil Exp $ |
21 |
|
22 |
src_prepare_update_patchlevel_h() { |
23 |
# Copied and modified from debian: |
24 |
# Copyright 2011 Niko Tyni |
25 |
# This program is free software; you can redistribute it and/or modify |
26 |
# it under the same terms as Perl itself. |
27 |
local patchdir="${WORKDIR}/patches" |
28 |
local prefix |
29 |
|
30 |
[[ -f ${patchdir}/series ]] || return 0 |
31 |
|
32 |
while read patch |
33 |
do |
34 |
patchname=$(echo $patch | sed 's/\.diff$//') |
35 |
< $patchdir/$patch sed -e '/^Subject:/ { N; s/\n / / }' | sed -n -e ' |
36 |
|
37 |
# massage the patch headers |
38 |
s|^Bug: .*https\?://rt\.perl\.org/.*id=\(.*\).*|[perl #\1]|; tprepend; |
39 |
s|^Bug: .*https\?://rt\.cpan\.org/.*id=\(.*\).*|[rt.cpan.org #\1]|; tprepend; |
40 |
s|^Bug-Gentoo: ||; tprepend; |
41 |
s/^\(Subject\|Description\): //; tappend; |
42 |
s|^Origin: .*http://perl5\.git\.perl\.org/perl\.git/commit\(diff\)\?/\(.......\).*|[\2]|; tprepend; |
43 |
|
44 |
# post-process at the end of input |
45 |
$ { x; |
46 |
# include the version number in the patchlevel.h description (if available) |
47 |
s/List packaged patches/&'" for ${PF}(#${PATCH_VER})"'/; |
48 |
|
49 |
# escape any backslashes and double quotes |
50 |
s|\\|\\\\|g; s|"|\\"|g; |
51 |
|
52 |
# add a prefix |
53 |
s|^|\t,"'"$prefix$patchname"' - |; |
54 |
# newlines away |
55 |
s/\n/ /g; s/ */ /g; |
56 |
# add a suffix |
57 |
s/ *$/"/; p |
58 |
}; |
59 |
# stop all processing |
60 |
d; |
61 |
# label: append to the hold space |
62 |
:append H; d; |
63 |
# label: prepend to the hold space |
64 |
:prepend x; H; d; |
65 |
' |
66 |
done < "${WORKDIR}"/patches/series > "${S}"/patchlevel-gentoo.h |
67 |
} |
68 |
|
69 |
eblit-perl-src_prepare() { |
70 |
local patch |
71 |
EPATCH_OPTS+=" -p1" |
72 |
einfo "Applying patches from ${MY_P}-patches-${PATCH_VER} ..." |
73 |
while read patch ; do |
74 |
EPATCH_SINGLE_MSG=" ${patch} ..." |
75 |
epatch "${WORKDIR}"/patches/${patch} |
76 |
done < "${WORKDIR}"/patches/series |
77 |
|
78 |
src_prepare_update_patchlevel_h |
79 |
|
80 |
# pod/perltoc.pod fails |
81 |
# lib/ExtUtils/t/Embed.t fails |
82 |
if ! tc-is-static-only ; then |
83 |
ln -s ${LIBPERL} libperl$(get_libname ${SHORT_PV}) || die |
84 |
ln -s ${LIBPERL} libperl$(get_libname ) || die |
85 |
fi |
86 |
} |