1 |
tove 10/10/31 07:59:12 |
2 |
|
3 |
Modified: ChangeLog |
4 |
Added: perl-5.12.2-r2.ebuild |
5 |
Log: |
6 |
Fix regression: Add /usr/local/lib/site_perl and /etc/perl to INC (#343225). enc2xs ignores missing @INC directories (#338802). Cleanup MINIMAL_PERL_INSTALL. |
7 |
|
8 |
(Portage version: 2.2.0_alpha2/cvs/Linux x86_64) |
9 |
|
10 |
Revision Changes Path |
11 |
1.334 dev-lang/perl/ChangeLog |
12 |
|
13 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/ChangeLog?rev=1.334&view=markup |
14 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/ChangeLog?rev=1.334&content-type=text/plain |
15 |
diff : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/ChangeLog?r1=1.333&r2=1.334 |
16 |
|
17 |
Index: ChangeLog |
18 |
=================================================================== |
19 |
RCS file: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v |
20 |
retrieving revision 1.333 |
21 |
retrieving revision 1.334 |
22 |
diff -u -r1.333 -r1.334 |
23 |
--- ChangeLog 28 Oct 2010 18:05:38 -0000 1.333 |
24 |
+++ ChangeLog 31 Oct 2010 07:59:12 -0000 1.334 |
25 |
@@ -1,6 +1,13 @@ |
26 |
# ChangeLog for dev-lang/perl |
27 |
# Copyright 1999-2010 Gentoo Foundation; Distributed under the GPL v2 |
28 |
-# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.333 2010/10/28 18:05:38 tove Exp $ |
29 |
+# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.334 2010/10/31 07:59:12 tove Exp $ |
30 |
+ |
31 |
+*perl-5.12.2-r2 (31 Oct 2010) |
32 |
+ |
33 |
+ 31 Oct 2010; Torsten Veller <tove@g.o> +perl-5.12.2-r2.ebuild: |
34 |
+ Fix regression: Add /usr/local/lib/site_perl and /etc/perl to INC |
35 |
+ (#343225). enc2xs ignores missing @INC directories (#338802). Cleanup |
36 |
+ MINIMAL_PERL_INSTALL. |
37 |
|
38 |
28 Oct 2010; Torsten Veller <tove@g.o> perl-5.12.2-r1.ebuild: |
39 |
Add Tie::Hash to MINIMAL_PERL_INSTALL |
40 |
|
41 |
|
42 |
|
43 |
1.1 dev-lang/perl/perl-5.12.2-r2.ebuild |
44 |
|
45 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/perl-5.12.2-r2.ebuild?rev=1.1&view=markup |
46 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/perl-5.12.2-r2.ebuild?rev=1.1&content-type=text/plain |
47 |
|
48 |
Index: perl-5.12.2-r2.ebuild |
49 |
=================================================================== |
50 |
# Copyright 1999-2010 Gentoo Foundation |
51 |
# Distributed under the terms of the GNU General Public License v2 |
52 |
# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/perl-5.12.2-r2.ebuild,v 1.1 2010/10/31 07:59:12 tove Exp $ |
53 |
|
54 |
EAPI=3 |
55 |
|
56 |
inherit eutils alternatives flag-o-matic toolchain-funcs multilib |
57 |
|
58 |
PATCH_VER=5 |
59 |
|
60 |
PERL_OLDVERSEN="5.12.1 5.12.0" |
61 |
|
62 |
SHORT_PV="${PV%.*}" |
63 |
MY_P="perl-${PV/_rc/-RC}" |
64 |
MY_PV="${PV%_rc*}" |
65 |
|
66 |
DESCRIPTION="Larry Wall's Practical Extraction and Report Language" |
67 |
|
68 |
SRC_URI=" |
69 |
mirror://cpan/src/${MY_P}.tar.bz2 |
70 |
mirror://cpan/authors/id/J/JE/JESSE/${MY_P}.tar.bz2 |
71 |
mirror://gentoo/${MY_P}-${PATCH_VER}.tar.bz2 |
72 |
http://dev.gentoo.org/~tove/files/${MY_P}-${PATCH_VER}.tar.bz2" |
73 |
# mirror://cpan/src/${MY_P}.tar.bz2 |
74 |
# mirror://gentoo/${MY_P}-${PATCH_VER}.tar.bz2 |
75 |
HOMEPAGE="http://www.perl.org/" |
76 |
|
77 |
LICENSE="|| ( Artistic GPL-1 GPL-2 GPL-3 )" |
78 |
SLOT="0" |
79 |
KEYWORDS="~alpha ~amd64 ~arm ~hppa ~ia64 ~m68k ~mips ~ppc ~ppc64 ~s390 ~sh ~sparc ~x86 ~x86-fbsd" |
80 |
IUSE="berkdb build debug doc gdbm ithreads" |
81 |
|
82 |
COMMON_DEPEND="berkdb? ( sys-libs/db ) |
83 |
gdbm? ( >=sys-libs/gdbm-1.8.3 ) |
84 |
>=sys-devel/libperl-5.10.1 |
85 |
!!<sys-devel/libperl-5.10.1 |
86 |
app-arch/bzip2 |
87 |
sys-libs/zlib" |
88 |
DEPEND="${COMMON_DEPEND} |
89 |
elibc_FreeBSD? ( sys-freebsd/freebsd-mk-defs )" |
90 |
RDEPEND="${COMMON_DEPEND}" |
91 |
PDEPEND=">=app-admin/perl-cleaner-2.5" |
92 |
|
93 |
S="${WORKDIR}/${MY_P}" |
94 |
|
95 |
dual_scripts() { |
96 |
src_remove_dual_scripts perl-core/Archive-Tar 1.54 ptar ptardiff |
97 |
src_remove_dual_scripts perl-core/Digest-SHA 5.47 shasum |
98 |
src_remove_dual_scripts perl-core/CPAN 1.9456 cpan |
99 |
src_remove_dual_scripts perl-core/CPANPLUS 0.90 cpanp cpan2dist cpanp-run-perl |
100 |
src_remove_dual_scripts perl-core/Encode 2.39 enc2xs piconv |
101 |
src_remove_dual_scripts perl-core/ExtUtils-MakeMaker 6.56 instmodsh |
102 |
src_remove_dual_scripts perl-core/Module-Build 0.3603 config_data |
103 |
src_remove_dual_scripts perl-core/Module-CoreList 2.38 corelist |
104 |
src_remove_dual_scripts perl-core/PodParser 1.37 pod2usage podchecker podselect |
105 |
src_remove_dual_scripts perl-core/Test-Harness 3.17 prove |
106 |
src_remove_dual_scripts perl-core/podlators 2.3.1 pod2man pod2text |
107 |
} |
108 |
|
109 |
pkg_setup() { |
110 |
case ${CHOST} in |
111 |
*-freebsd*) osname="freebsd" ;; |
112 |
*-dragonfly*) osname="dragonfly" ;; |
113 |
*-netbsd*) osname="netbsd" ;; |
114 |
*-openbsd*) osname="openbsd" ;; |
115 |
*-darwin*) osname="darwin" ;; |
116 |
*) osname="linux" ;; |
117 |
esac |
118 |
|
119 |
if use ithreads ; then |
120 |
mythreading="-multi" |
121 |
myarch="${CHOST%%-*}-${osname}-thread" |
122 |
else |
123 |
myarch="${CHOST%%-*}-${osname}" |
124 |
fi |
125 |
if use debug ; then |
126 |
myarch="${myarch}-debug" |
127 |
fi |
128 |
|
129 |
LIBPERL="libperl$(get_libname ${MY_PV} )" |
130 |
PRIV_LIB="/usr/$(get_libdir)/perl5/${MY_PV}" |
131 |
ARCH_LIB="/usr/$(get_libdir)/perl5/${MY_PV}/${myarch}${mythreading}" |
132 |
SITE_LIB="/usr/$(get_libdir)/perl5/site_perl/${MY_PV}" |
133 |
SITE_ARCH="/usr/$(get_libdir)/perl5/site_perl/${MY_PV}/${myarch}${mythreading}" |
134 |
VENDOR_LIB="/usr/$(get_libdir)/perl5/vendor_perl/${MY_PV}" |
135 |
VENDOR_ARCH="/usr/$(get_libdir)/perl5/vendor_perl/${MY_PV}/${myarch}${mythreading}" |
136 |
|
137 |
if use ithreads ; then |
138 |
echo "" |
139 |
ewarn "THREADS WARNING:" |
140 |
ewarn "PLEASE NOTE: You are compiling ${MY_P} with" |
141 |
ewarn "interpreter-level threading enabled." |
142 |
ewarn "Threading is not supported by all applications " |
143 |
ewarn "that compile against perl. You use threading at " |
144 |
ewarn "your own discretion. " |
145 |
fi |
146 |
if has_version "<dev-lang/perl-${SHORT_PV}" ; then |
147 |
echo "" |
148 |
ewarn "UPDATE THE PERL MODULES:" |
149 |
ewarn "After updating dev-lang/perl you must reinstall" |
150 |
ewarn "the installed perl modules." |
151 |
ewarn "Use: perl-cleaner --all" |
152 |
elif has_version dev-lang/perl ; then |
153 |
# doesnot work |
154 |
#if ! has_version dev-lang/perl[ithreads=,debug=] ; then |
155 |
#if ! has_version dev-lang/perl[ithreads=] || ! has_version dev-lang/perl[debug=] ; then |
156 |
if ( use ithreads && ! has_version dev-lang/perl[ithreads] ) || \ |
157 |
( ! use ithreads && has_version dev-lang/perl[ithreads] ) || \ |
158 |
( use debug && ! has_version dev-lang/perl[debug] ) || \ |
159 |
( ! use debug && has_version dev-lang/perl[debug] ) ; then |
160 |
echo "" |
161 |
ewarn "TOGGLED USE-FLAGS WARNING:" |
162 |
ewarn "You changed one of the use-flags ithreads or debug." |
163 |
ewarn "You must rebuild all perl-modules installed." |
164 |
ewarn "Use: perl-cleaner --modules ; perl-cleaner --force --libperl" |
165 |
fi |
166 |
fi |
167 |
dual_scripts |
168 |
} |
169 |
|
170 |
src_prepare_update_patchlevel_h() { |
171 |
[[ -f ${WORKDIR}/perl-patch/series ]] || return 0 |
172 |
|
173 |
while read patch level ; do |
174 |
sed -i -e "s/^\t,NULL$/ ,\"${patch//__/_}\"\n&/" "${S}"/patchlevel.h || die |
175 |
done < "${WORKDIR}"/perl-patch/series |
176 |
} |
177 |
|
178 |
src_prepare() { |
179 |
EPATCH_SOURCE="${WORKDIR}/perl-patch" \ |
180 |
EPATCH_SUFFIX="diff" \ |
181 |
EPATCH_FORCE="yes" \ |
182 |
epatch |
183 |
|
184 |
src_prepare_update_patchlevel_h |
185 |
|
186 |
# pod/perltoc.pod fails |
187 |
# lib/ExtUtils/t/Embed.t fails |
188 |
ln -s ${LIBPERL} libperl$(get_libname ${SHORT_PV}) |
189 |
ln -s ${LIBPERL} libperl$(get_libname ) |
190 |
} |
191 |
|
192 |
myconf() { |
193 |
# the myconf array is declared in src_configure |
194 |
myconf=( "${myconf[@]}" "$@" ) |
195 |
} |
196 |
|
197 |
src_configure() { |
198 |
declare -a myconf |
199 |
|
200 |
export LC_ALL="C" |
201 |
|
202 |
# some arches and -O do not mix :) |
203 |
use ppc && replace-flags -O? -O1 |
204 |
# Perl has problems compiling with -Os in your flags with glibc |
205 |
use elibc_uclibc || replace-flags "-Os" "-O2" |
206 |
# This flag makes compiling crash in interesting ways |
207 |
filter-flags "-malign-double" |
208 |
# Fixes bug #97645 |
209 |
use ppc && filter-flags "-mpowerpc-gpopt" |
210 |
# Fixes bug #143895 on gcc-4.1.1 |
211 |
filter-flags "-fsched2-use-superblocks" |
212 |
|
213 |
# this is needed because gcc 3.3-compiled kernels will hang |
214 |
# the machine trying to run this test - check with `Kumba |
215 |
# <rac@g.o> 2003.06.26 |
216 |
use mips && myconf -Dd_u32align |
217 |
|
218 |
use sparc && myconf -Ud_longdbl |
219 |
|
220 |
# 266337 |
221 |
export BUILD_BZIP2=0 |
222 |
export BZIP2_INCLUDE=/usr/include |
223 |
export BZIP2_LIB=/usr/$(get_libdir) |
224 |
cat <<-EOF > "${S}/cpan/Compress-Raw-Zlib/config.in" |
225 |
BUILD_ZLIB = False |
226 |
INCLUDE = /usr/include |
227 |
LIB = /usr/$(get_libdir) |
228 |
|
229 |
OLD_ZLIB = False |
230 |
GZIP_OS_CODE = AUTO_DETECT |
231 |
EOF |
232 |
|
233 |
# allow either gdbm to provide ndbm (in <gdbm/ndbm.h>) or db1 |
234 |
|
235 |
myndbm='U' |
236 |
mygdbm='U' |
237 |
mydb='U' |
238 |
|
239 |
if use gdbm ; then |
240 |
mygdbm='D' |
241 |
myndbm='D' |
242 |
fi |
243 |
if use berkdb ; then |
244 |
mydb='D' |
245 |
has_version '=sys-libs/db-1*' && myndbm='D' |
246 |
fi |
247 |
|
248 |
myconf "-${myndbm}i_ndbm" "-${mygdbm}i_gdbm" "-${mydb}i_db" |
249 |
|
250 |
if use alpha && [[ "$(tc-getCC)" = "ccc" ]] ; then |
251 |
ewarn "Perl will not be built with berkdb support, use gcc if you needed it..." |
252 |
myconf -Ui_db -Ui_ndbm |
253 |
fi |
254 |
|
255 |
use ithreads && myconf -Dusethreads |
256 |
|
257 |
if use debug ; then |
258 |
append-cflags "-g" |
259 |
myconf -DDEBUGGING |
260 |
elif [[ ${CFLAGS} == *-g* ]] ; then |
261 |
myconf -DDEBUGGING=-g |
262 |
else |
263 |
myconf -DDEBUGGING=none |
264 |
fi |
265 |
|
266 |
if [[ -n ${PERL_OLDVERSEN} ]] ; then |
267 |
local inclist=$(for v in ${PERL_OLDVERSEN}; do echo -n "${v}/${myarch}${mythreading} ${v} "; done ) |
268 |
myconf -Dinc_version_list="$inclist" |
269 |
fi |
270 |
[[ -n "${ABI}" ]] && myconf "-Dusrinc=$(get_ml_incdir)" |
271 |
|
272 |
[[ ${ELIBC} == "FreeBSD" ]] && myconf "-Dlibc=/usr/$(get_libdir)/libc.a" |
273 |
|
274 |
if [[ $(get_libdir) != "lib" ]] ; then |
275 |
# We need to use " and not ', as the written config.sh use ' ... |
276 |
myconf "-Dlibpth=/usr/local/$(get_libdir) /$(get_libdir) /usr/$(get_libdir)" |
277 |
fi |
278 |
|
279 |
sh Configure \ |
280 |
-des \ |
281 |
-Duseshrplib \ |
282 |
-Darchname="${myarch}" \ |
283 |
-Dcc="$(tc-getCC)" \ |
284 |
-Doptimize="${CFLAGS}" \ |
285 |
-Dldflags="${LDFLAGS}" \ |
286 |
-Dprefix='/usr' \ |
287 |
-Dsiteprefix='/usr' \ |
288 |
-Dvendorprefix='/usr' \ |
289 |
-Dscriptdir='/usr/bin' \ |
290 |
-Dprivlib="${PRIV_LIB}" \ |
291 |
-Darchlib="${ARCH_LIB}" \ |
292 |
-Dsitelib="${SITE_LIB}" \ |
293 |
-Dsitearch="${SITE_ARCH}" \ |
294 |
-Dvendorlib="${VENDOR_LIB}" \ |
295 |
-Dvendorarch="${VENDOR_ARCH}" \ |
296 |
-Dman1dir=/usr/share/man/man1 \ |
297 |
-Dman3dir=/usr/share/man/man3 \ |
298 |
-Dsiteman1dir=/usr/share/man/man1 \ |
299 |
-Dsiteman3dir=/usr/share/man/man3 \ |
300 |
-Dvendorman1dir=/usr/share/man/man1 \ |
301 |
-Dvendorman3dir=/usr/share/man/man3 \ |
302 |
-Dman1ext='1' \ |
303 |
-Dman3ext='3pm' \ |
304 |
-Dlibperl="${LIBPERL}" \ |
305 |
-Dlocincpth=' ' \ |
306 |
-Duselargefiles \ |
307 |
-Dd_semctl_semun \ |
308 |
-Dcf_by='Gentoo' \ |
309 |
-Dmyhostname='localhost' \ |
310 |
-Dperladmin='root@localhost' \ |
311 |
-Dinstallusrbinperl='n' \ |
312 |
-Ud_csh \ |
313 |
-Uusenm \ |
314 |
"${myconf[@]}" || die "Unable to configure" |
315 |
} |
316 |
|
317 |
src_compile() { |
318 |
# bug 331113 |
319 |
emake -j1 || die "emake failed" |
320 |
} |
321 |
|
322 |
src_test() { |
323 |
if [[ ${EUID} == 0 ]] ; then |
324 |
ewarn "Test fails with a sandbox error (#328793) if run as root. Skipping tests..." |
325 |
return 0 |
326 |
fi |
327 |
use elibc_uclibc && export MAKEOPTS+=" -j1" |
328 |
TEST_JOBS=$(echo -j1 ${MAKEOPTS} | sed -r 's/.*(-j[[:space:]]*|--jobs=)([[:digit:]]+).*/\2/' ) \ |
329 |
make test_harness || die "test failed" |
330 |
} |
331 |
|
332 |
src_install() { |
333 |
local i |
334 |
local coredir="${ARCH_LIB}/CORE" |
335 |
|
336 |
# # Fix for "stupid" modules and programs |
337 |
# dodir ${SITE_ARCH} ${SITE_LIB} |
338 |
# keepdir "${VENDOR_ARCH}" #338802 for enc2xs |
339 |
|
340 |
local installtarget=install |
341 |
if use build ; then |
342 |
installtarget=install.perl |
343 |
fi |
344 |
make DESTDIR="${D}" ${installtarget} || die "Unable to make ${installtarget}" |
345 |
|
346 |
rm -f "${D}"/usr/bin/perl |
347 |
ln -s perl${MY_PV} "${D}"/usr/bin/perl |
348 |
|
349 |
dolib.so "${D}"/${coredir}/${LIBPERL} || die |
350 |
dosym ${LIBPERL} /usr/$(get_libdir)/libperl$(get_libname ${SHORT_PV}) || die |
351 |
dosym ${LIBPERL} /usr/$(get_libdir)/libperl$(get_libname) || die |
352 |
rm -f "${D}"/${coredir}/${LIBPERL} |
353 |
dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/${LIBPERL} |
354 |
dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/libperl$(get_libname ${SHORT_PV}) |
355 |
dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/libperl$(get_libname) |
356 |
|
357 |
rm -rf "${D}"/usr/share/man/man3 || die "Unable to remove module man pages" |
358 |
|
359 |
# # A poor fix for the miniperl issues |
360 |
# dosed 's:./miniperl:/usr/bin/perl:' /usr/$(get_libdir)/perl5/${MY_PV}/ExtUtils/xsubpp |
361 |
# fperms 0444 /usr/$(get_libdir)/perl5/${MY_PV}/ExtUtils/xsubpp |
362 |
# dosed 's:./miniperl:/usr/bin/perl:' /usr/bin/xsubpp |
363 |
# fperms 0755 /usr/bin/xsubpp |
364 |
|
365 |
# This removes ${D} from Config.pm |
366 |
for i in $(find "${D}" -iname "Config.pm" ) ; do |
367 |
einfo "Removing ${D} from ${i}..." |
368 |
sed -i -e "s:${D}::" "${i}" || die "Sed failed" |
369 |
done |
370 |
|
371 |
find "${D}" -type f -name .packlist -delete || die |
372 |
|
373 |
# Note: find out from psm why we would need/want this. |
374 |
# ( use berkdb && has_version '=sys-libs/db-1*' ) || |
375 |
# find "${D}" -name "*NDBM*" | xargs rm -f |
376 |
|
377 |
dodoc Changes* README AUTHORS || die |
378 |
|
379 |
if use doc ; then |
380 |
# HTML Documentation |
381 |
# We expect errors, warnings, and such with the following. |
382 |
|
383 |
dodir /usr/share/doc/${PF}/html |
384 |
LD_LIBRARY_PATH=. ./perl installhtml \ |
385 |
--podroot='.' \ |
386 |
--podpath='lib:ext:pod:vms' \ |
387 |
--recurse \ |
388 |
--htmldir="${D}/usr/share/doc/${PF}/html" \ |
389 |
--libpods='perlfunc:perlguts:perlvar:perlrun:perlop' |
390 |
fi |
391 |
|
392 |
if use build ; then |
393 |
src_remove_extra_files |
394 |
fi |
395 |
|
396 |
dual_scripts |
397 |
} |
398 |
|
399 |
pkg_postinst() { |
400 |
dual_scripts |
401 |
|
402 |
if [[ "${ROOT}" = "/" ]] ; then |
403 |
local INC DIR file |
404 |
INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${MY_PV}'|etc|local|perl$/; print "$line\n" }') |
405 |
ebegin "Removing old .ph files" |
406 |
for DIR in ${INC} ; do |
407 |
if [[ -d "${DIR}" ]] ; then |
408 |
for file in $(find "${DIR}" -name "*.ph" -type f ) ; do |
409 |
rm -f "${file}" |
410 |
einfo "<< ${file}" |
411 |
done |
412 |
fi |
413 |
done |
414 |
# Silently remove the now empty dirs |
415 |
for DIR in ${INC} ; do |
416 |
if [[ -d "${DIR}" ]] ; then |
417 |
find "${DIR}" -depth -type d -print0 | xargs -0 -r rmdir &> /dev/null |
418 |
fi |
419 |
done |
420 |
if ! use build ; then |
421 |
ebegin "Generating ConfigLocal.pm (ignore any error)" |
422 |
enc2xs -C |
423 |
fi |
424 |
ebegin "Converting C header files to the corresponding Perl format (ignore any error)" |
425 |
pushd /usr/include >/dev/null |
426 |
h2ph -Q -a -d ${ARCH_LIB} \ |
427 |
asm/termios.h syscall.h syslimits.h syslog.h sys/ioctl.h \ |
428 |
sys/socket.h sys/time.h wait.h sysexits.h |
429 |
popd >/dev/null |
430 |
|
431 |
# This has been moved into a function because rumor has it that a future release |
432 |
# of portage will allow us to check what version was just removed - which means |
433 |
# we will be able to invoke this only as needed :) |
434 |
# Tried doing this via -z, but $INC is too big... |
435 |
#if [[ "${INC}x" != "x" ]]; then |
436 |
# cleaner_msg |
437 |
#fi |
438 |
fi |
439 |
} |
440 |
|
441 |
pkg_postrm(){ |
442 |
dual_scripts |
443 |
|
444 |
# if [[ -e ${ARCH_LIB}/Encode/ConfigLocal.pm ]] ; then |
445 |
# ebegin "Removing ConfigLocal.pm" |
446 |
# rm "${ARCH_LIB}/Encode/ConfigLocal.pm" |
447 |
# fi |
448 |
} |
449 |
|
450 |
cleaner_msg() { |
451 |
eerror "You have had multiple versions of perl. It is recommended" |
452 |
eerror "that you run perl-cleaner now. perl-cleaner will" |
453 |
eerror "assist with this transition. This script is capable" |
454 |
eerror "of cleaning out old .ph files, rebuilding modules for " |
455 |
eerror "your new version of perl, as well as re-emerging" |
456 |
eerror "applications that compiled against your old libperl$(get_libname)" |
457 |
eerror |
458 |
eerror "PLEASE DO NOT INTERRUPT THE RUNNING OF THIS SCRIPT." |
459 |
eerror "Part of the rebuilding of applications compiled against " |
460 |
eerror "your old libperl involves temporarily unmerging" |
461 |
eerror "them - interruptions could leave you with unmerged" |
462 |
eerror "packages before they can be remerged." |
463 |
eerror "" |
464 |
eerror "If you have run perl-cleaner and a package still gives" |
465 |
eerror "you trouble, and re-emerging it fails to correct" |
466 |
eerror "the problem, please check http://bugs.gentoo.org/" |
467 |
eerror "for more information or to report a bug." |
468 |
eerror "" |
469 |
} |
470 |
|
471 |
src_remove_dual_scripts() { |
472 |
|
473 |
local i pkg ver ff |
474 |
pkg="$1" |
475 |
ver="$2" |
476 |
shift 2 |
477 |
if has "${EBUILD_PHASE:-none}" "postinst" "postrm" ;then |
478 |
for i in "$@" ; do |
479 |
alternatives_auto_makesym "/usr/bin/${i}" "/usr/bin/${i}-[0-9]*" |
480 |
if [[ ${i} != cpanp-run-perl ]] ; then |
481 |
ff=`echo ${ROOT}/usr/share/man/man1/${i}-${ver}-${P}.1*` |
482 |
ff=${ff##*.1} |
483 |
alternatives_auto_makesym "/usr/share/man/man1/${i}.1${ff}" "/usr/share/man/man1/${i}-[0-9]*" |
484 |
fi |
485 |
done |
486 |
elif has "${EBUILD_PHASE:-none}" "setup" ; then |
487 |
for i in "$@" ; do |
488 |
if [[ -f ${ROOT}/usr/bin/${i} && ! -h ${ROOT}/usr/bin/${i} ]] ; then |
489 |
has_version ${pkg} && ewarn "You must reinstall $pkg !" |
490 |
break |
491 |
fi |
492 |
done |
493 |
else |
494 |
for i in "$@" ; do |
495 |
if ! [[ -f "${D}"/usr/bin/${i} ]] ; then |
496 |
use build || ewarn "/usr/bin/${i} does not exist!" |
497 |
continue |
498 |
fi |
499 |
mv "${D}"/usr/bin/${i}{,-${ver}-${P}} || die |
500 |
if [[ -f ${D}/usr/share/man/man1/${i}.1 ]] ; then |
501 |
mv "${D}"/usr/share/man/man1/${i}{.1,-${ver}-${P}.1} || die |
502 |
else |
503 |
echo "/usr/share/man/man1/${i}.1 does not exist!" |
504 |
fi |
505 |
done |
506 |
fi |
507 |
} |
508 |
|
509 |
src_remove_extra_files() { |
510 |
local prefix="./usr" # ./ is important |
511 |
local bindir="${prefix}/bin" |
512 |
local libdir="${prefix}/$(get_libdir)" |
513 |
|
514 |
# I made this list from the Mandr*, Debian and ex-Connectiva perl-base list |
515 |
# Then, I added several files to get GNU autotools running |
516 |
# FIXME: should this be in a separated file to be sourced? |
517 |
local MINIMAL_PERL_INSTALL=" |
518 |
${bindir}/h2ph |
519 |
${bindir}/perl |
520 |
${bindir}/perl${MY_PV} |
521 |
${bindir}/pod2man |
522 |
${libdir}/${LIBPERL} |
523 |
${libdir}/libperl$(get_libname) |
524 |
${libdir}/libperl$(get_libname ${SHORT_PV}) |
525 |
.${PRIV_LIB}/AutoLoader.pm |
526 |
.${PRIV_LIB}/B/Deparse.pm |
527 |
.${PRIV_LIB}/Carp.pm |
528 |
.${PRIV_LIB}/Carp/Heavy.pm |
529 |
.${PRIV_LIB}/Class/Struct.pm |
530 |
.${PRIV_LIB}/DirHandle.pm |
531 |
.${PRIV_LIB}/Exporter.pm |
532 |
.${PRIV_LIB}/Exporter/Heavy.pm |
533 |
.${PRIV_LIB}/ExtUtils/Command.pm |
534 |
.${PRIV_LIB}/ExtUtils/Command/MM.pm |
535 |
.${PRIV_LIB}/ExtUtils/Constant.pm |
536 |
.${PRIV_LIB}/ExtUtils/Constant/Base.pm |
537 |
.${PRIV_LIB}/ExtUtils/Constant/Utils.pm |
538 |
.${PRIV_LIB}/ExtUtils/Constant/XS.pm |
539 |
.${PRIV_LIB}/ExtUtils/Embed.pm |
540 |
.${PRIV_LIB}/ExtUtils/Install.pm |
541 |
.${PRIV_LIB}/ExtUtils/Installed.pm |
542 |
.${PRIV_LIB}/ExtUtils/Liblist.pm |
543 |
.${PRIV_LIB}/ExtUtils/Liblist/Kid.pm |
544 |
.${PRIV_LIB}/ExtUtils/MM.pm |
545 |
.${PRIV_LIB}/ExtUtils/MM_Any.pm |
546 |
.${PRIV_LIB}/ExtUtils/MM_MacOS.pm |
547 |
.${PRIV_LIB}/ExtUtils/MM_Unix.pm |
548 |
.${PRIV_LIB}/ExtUtils/MY.pm |
549 |
.${PRIV_LIB}/ExtUtils/MakeMaker.pm |
550 |
.${PRIV_LIB}/ExtUtils/Manifest.pm |
551 |
.${PRIV_LIB}/ExtUtils/Miniperl.pm |
552 |
.${PRIV_LIB}/ExtUtils/Mkbootstrap.pm |
553 |
.${PRIV_LIB}/ExtUtils/Mksymlists.pm |
554 |
.${PRIV_LIB}/ExtUtils/Packlist.pm |
555 |
.${PRIV_LIB}/ExtUtils/testlib.pm |
556 |
.${PRIV_LIB}/File/Basename.pm |
557 |
.${PRIV_LIB}/File/Compare.pm |
558 |
.${PRIV_LIB}/File/Copy.pm |
559 |
.${PRIV_LIB}/File/Find.pm |
560 |
.${PRIV_LIB}/File/Path.pm |
561 |
.${PRIV_LIB}/File/stat.pm |
562 |
.${PRIV_LIB}/FileHandle.pm |
563 |
.${PRIV_LIB}/Getopt/Long.pm |
564 |
.${PRIV_LIB}/Getopt/Std.pm |
565 |
.${PRIV_LIB}/IPC/Open2.pm |
566 |
.${PRIV_LIB}/IPC/Open3.pm |
567 |
.${PRIV_LIB}/PerlIO.pm |
568 |
.${PRIV_LIB}/Pod/InputObjects.pm |
569 |
.${PRIV_LIB}/Pod/Man.pm |
570 |
.${PRIV_LIB}/Pod/ParseLink.pm |
571 |
.${PRIV_LIB}/Pod/Parser.pm |
572 |
.${PRIV_LIB}/Pod/Select.pm |
573 |
.${PRIV_LIB}/Pod/Text.pm |
574 |
.${PRIV_LIB}/Pod/Usage.pm |
575 |
.${PRIV_LIB}/SelectSaver.pm |
576 |
.${PRIV_LIB}/Symbol.pm |
577 |
.${PRIV_LIB}/Text/ParseWords.pm |
578 |
.${PRIV_LIB}/Text/Tabs.pm |
579 |
.${PRIV_LIB}/Text/Wrap.pm |
580 |
.${PRIV_LIB}/Tie/Hash.pm |
581 |
.${PRIV_LIB}/Time/Local.pm |
582 |
.${PRIV_LIB}/XSLoader.pm |
583 |
.${PRIV_LIB}/autouse.pm |
584 |
.${PRIV_LIB}/base.pm |
585 |
.${PRIV_LIB}/bigint.pm |
586 |
.${PRIV_LIB}/bignum.pm |
587 |
.${PRIV_LIB}/bigrat.pm |
588 |
.${PRIV_LIB}/blib.pm |
589 |
.${PRIV_LIB}/bytes.pm |
590 |
.${PRIV_LIB}/bytes_heavy.pl |
591 |
.${PRIV_LIB}/charnames.pm |
592 |
.${PRIV_LIB}/constant.pm |
593 |
.${PRIV_LIB}/diagnostics.pm |
594 |
.${PRIV_LIB}/fields.pm |
595 |
.${PRIV_LIB}/filetest.pm |
596 |
.${PRIV_LIB}/if.pm |
597 |
.${PRIV_LIB}/integer.pm |
598 |
.${PRIV_LIB}/less.pm |
599 |
.${PRIV_LIB}/locale.pm |
600 |
.${PRIV_LIB}/open.pm |
601 |
.${PRIV_LIB}/overload.pm |
602 |
.${PRIV_LIB}/sigtrap.pm |
603 |
.${PRIV_LIB}/sort.pm |
604 |
.${PRIV_LIB}/stat.pl |
605 |
.${PRIV_LIB}/strict.pm |
606 |
.${PRIV_LIB}/subs.pm |
607 |
.${PRIV_LIB}/unicore/To/Fold.pl |
608 |
.${PRIV_LIB}/unicore/To/Lower.pl |
609 |
.${PRIV_LIB}/unicore/To/Upper.pl |
610 |
.${PRIV_LIB}/utf8.pm |
611 |
.${PRIV_LIB}/utf8_heavy.pl |
612 |
.${PRIV_LIB}/vars.pm |
613 |
.${PRIV_LIB}/vmsish.pm |
614 |
.${PRIV_LIB}/warnings |
615 |
.${PRIV_LIB}/warnings.pm |
616 |
.${PRIV_LIB}/warnings/register.pm |
617 |
.${ARCH_LIB}/B.pm |
618 |
.${ARCH_LIB}/CORE/libperl$(get_libname) |
619 |
.${ARCH_LIB}/Config.pm |
620 |
.${ARCH_LIB}/Config_heavy.pl |
621 |
.${ARCH_LIB}/Cwd.pm |
622 |
.${ARCH_LIB}/Data/Dumper.pm |
623 |
.${ARCH_LIB}/DynaLoader.pm |
624 |
.${ARCH_LIB}/Errno.pm |
625 |
.${ARCH_LIB}/Fcntl.pm |
626 |
.${ARCH_LIB}/File/Glob.pm |
627 |
.${ARCH_LIB}/File/Spec.pm |
628 |
.${ARCH_LIB}/File/Spec/Unix.pm |
629 |
.${ARCH_LIB}/IO.pm |
630 |
.${ARCH_LIB}/IO/File.pm |
631 |
.${ARCH_LIB}/IO/Handle.pm |
632 |
.${ARCH_LIB}/IO/Pipe.pm |
633 |
.${ARCH_LIB}/IO/Seekable.pm |
634 |
.${ARCH_LIB}/IO/Select.pm |
635 |
.${ARCH_LIB}/IO/Socket.pm |
636 |
.${ARCH_LIB}/IO/Socket/INET.pm |
637 |
.${ARCH_LIB}/IO/Socket/UNIX.pm |
638 |
.${ARCH_LIB}/List/Util.pm |
639 |
.${ARCH_LIB}/NDBM_File.pm |
640 |
.${ARCH_LIB}/POSIX.pm |
641 |
.${ARCH_LIB}/Scalar/Util.pm |
642 |
.${ARCH_LIB}/Socket.pm |
643 |
.${ARCH_LIB}/Storable.pm |
644 |
.${ARCH_LIB}/attributes.pm |
645 |
.${ARCH_LIB}/auto/Cwd/Cwd$(get_libname) |
646 |
.${ARCH_LIB}/auto/Data/Dumper/Dumper$(get_libname) |
647 |
.${ARCH_LIB}/auto/DynaLoader/dl_findfile.al |
648 |
.${ARCH_LIB}/auto/Fcntl/Fcntl$(get_libname) |
649 |
.${ARCH_LIB}/auto/File/Glob/Glob$(get_libname) |
650 |
.${ARCH_LIB}/auto/IO/IO$(get_libname) |
651 |
.${ARCH_LIB}/auto/POSIX/POSIX$(get_libname) |
652 |
.${ARCH_LIB}/auto/POSIX/autosplit.ix |
653 |
.${ARCH_LIB}/auto/POSIX/fstat.al |
654 |
.${ARCH_LIB}/auto/POSIX/load_imports.al |
655 |
.${ARCH_LIB}/auto/POSIX/stat.al |
656 |
.${ARCH_LIB}/auto/POSIX/tmpfile.al |
657 |
.${ARCH_LIB}/auto/Socket/Socket$(get_libname) |
658 |
.${ARCH_LIB}/auto/Storable/Storable$(get_libname) |
659 |
.${ARCH_LIB}/auto/Storable/_retrieve.al |
660 |
.${ARCH_LIB}/auto/Storable/_store.al |
661 |
.${ARCH_LIB}/auto/Storable/autosplit.ix |
662 |
.${ARCH_LIB}/auto/Storable/retrieve.al |
663 |
.${ARCH_LIB}/auto/Storable/store.al |
664 |
.${ARCH_LIB}/auto/re/re$(get_libname) |
665 |
.${ARCH_LIB}/encoding.pm |
666 |
.${ARCH_LIB}/lib.pm |
667 |
.${ARCH_LIB}/ops.pm |
668 |
.${ARCH_LIB}/re.pm |
669 |
.${ARCH_LIB}/threads.pm |
670 |
" |
671 |
|
672 |
pushd "${D}" > /dev/null |
673 |
# Remove cruft |
674 |
einfo "Removing files that are not in the minimal install" |
675 |
echo "${MINIMAL_PERL_INSTALL}" |
676 |
for f in $(find . -type f ) ; do |
677 |
has "${f}" ${MINIMAL_PERL_INSTALL} || rm -f "${f}" |
678 |
done |
679 |
# Remove empty directories |
680 |
find . -depth -type d -print0 | xargs -0 -r rmdir &> /dev/null |
681 |
#for f in ${MINIMAL_PERL_INSTALL} ; do |
682 |
# [[ -e $f ]] || ewarn "$f unused in MINIMAL_PERL_INSTALL" |
683 |
#done |
684 |
popd > /dev/null |
685 |
} |