From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from pigeon.gentoo.org ([69.77.167.62] helo=lists.gentoo.org) by finch.gentoo.org with esmtp (Exim 4.60) (envelope-from ) id 1LS77b-0000DH-Ok for garchives@archives.gentoo.org; Wed, 28 Jan 2009 09:54:12 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id E0CDAE02CB; Wed, 28 Jan 2009 09:54:10 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id 7D516E02CB for ; Wed, 28 Jan 2009 09:54:10 +0000 (UTC) Received: from stork.gentoo.org (stork.gentoo.org [64.127.104.133]) (using TLSv1 with cipher AES256-SHA (256/256 bits)) (No client certificate requested) by smtp.gentoo.org (Postfix) with ESMTP id 155AF649E1 for ; Wed, 28 Jan 2009 09:54:10 +0000 (UTC) Received: from tove by stork.gentoo.org with local (Exim 4.69) (envelope-from ) id 1LS77Z-0000r0-Fz for gentoo-commits@lists.gentoo.org; Wed, 28 Jan 2009 09:54:09 +0000 From: "Torsten Veller (tove)" To: gentoo-commits@lists.gentoo.org Reply-To: gentoo-dev@lists.gentoo.org, tove@gentoo.org Subject: [gentoo-commits] gentoo-x86 commit in dev-lang/perl: perl-5.8.8-r6.ebuild ChangeLog X-VCS-Repository: gentoo-x86 X-VCS-Files: perl-5.8.8-r6.ebuild ChangeLog X-VCS-Directories: dev-lang/perl X-VCS-Committer: tove X-VCS-Committer-Name: Torsten Veller Content-Type: text/plain; charset=utf8 Message-Id: Sender: Torsten Veller Date: Wed, 28 Jan 2009 09:54:09 +0000 Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-Id: Gentoo Linux mail X-BeenThere: gentoo-commits@lists.gentoo.org Content-Transfer-Encoding: quoted-printable X-Archives-Salt: 47bf9f18-9b98-4b7a-a65e-34e251551f35 X-Archives-Hash: adbe6fe7f9537dd1d3c0b3fc8bf8c4b4 tove 09/01/28 09:54:09 Modified: ChangeLog Added: perl-5.8.8-r6.ebuild Log: Fix #249629 - File::Path multiple symlink attack vulnerabilities (Portage version: 2.2_rc23/cvs/Linux i686) Revision Changes Path 1.275 dev-lang/perl/ChangeLog file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-lang/perl/Chan= geLog?rev=3D1.275&view=3Dmarkup plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-lang/perl/Chan= geLog?rev=3D1.275&content-type=3Dtext/plain diff : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-lang/perl/Chan= geLog?r1=3D1.274&r2=3D1.275 Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v retrieving revision 1.274 retrieving revision 1.275 diff -u -r1.274 -r1.275 --- ChangeLog 23 Aug 2008 05:33:18 -0000 1.274 +++ ChangeLog 28 Jan 2009 09:54:09 -0000 1.275 @@ -1,6 +1,12 @@ # ChangeLog for dev-lang/perl -# Copyright 1999-2008 Gentoo Foundation; Distributed under the GPL v2 -# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.274 2008/= 08/23 05:33:18 jer Exp $ +# Copyright 1999-2009 Gentoo Foundation; Distributed under the GPL v2 +# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.275 2009/= 01/28 09:54:09 tove Exp $ + +*perl-5.8.8-r6 (28 Jan 2009) + + 28 Jan 2009; Torsten Veller + +files/perl-5.8.8-CAN-2005-0448-rmtree-2.patch, +perl-5.8.8-r6.ebuild: + Fix #249629 - File::Path multiple symlink attack vulnerabilities =20 23 Aug 2008; Jeroen Roovers metadata.xml: Add GLEP 56 USE flag descriptions. Remove empty tag. 1.1 dev-lang/perl/perl-5.8.8-r6.ebuild file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-lang/perl/perl= -5.8.8-r6.ebuild?rev=3D1.1&view=3Dmarkup plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-lang/perl/perl= -5.8.8-r6.ebuild?rev=3D1.1&content-type=3Dtext/plain Index: perl-5.8.8-r6.ebuild =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D # Copyright 1999-2009 Gentoo Foundation # Distributed under the terms of the GNU General Public License v2 # $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/perl-5.8.8-r6.ebuild,v 1= .1 2009/01/28 09:54:09 tove Exp $ inherit eutils flag-o-matic toolchain-funcs multilib # The slot of this binary compat version of libperl.so PERLSLOT=3D"1" SHORT_PV=3D"${PV%.*}" MY_P=3D"perl-${PV/_rc/-RC}" MY_PV=3D"${PV%_rc*}" DESCRIPTION=3D"Larry Wall's Practical Extraction and Report Language" S=3D"${WORKDIR}/${MY_P}" SRC_URI=3D"mirror://cpan/src/${MY_P}.tar.bz2" HOMEPAGE=3D"http://www.perl.org/" LIBPERL=3D"libperl$(get_libname ${PERLSLOT}.${SHORT_PV})" LICENSE=3D"|| ( Artistic GPL-2 )" SLOT=3D"0" KEYWORDS=3D"~alpha ~amd64 ~arm ~hppa ~ia64 ~m68k ~mips ~ppc ~ppc64 ~s390 = ~sh ~sparc ~sparc-fbsd ~x86 ~x86-fbsd" IUSE=3D"berkdb debug doc gdbm ithreads perlsuid build elibc_FreeBSD" PERL_OLDVERSEN=3D"5.8.0 5.8.2 5.8.4 5.8.5 5.8.6 5.8.7" DEPEND=3D"berkdb? ( sys-libs/db ) gdbm? ( >=3Dsys-libs/gdbm-1.8.3 ) >=3Dsys-devel/libperl-${PV}-r1 elibc_FreeBSD? ( sys-freebsd/freebsd-mk-defs ) =3Dsys-libs/gdbm-1.8.3 ) build? ( !perl-core/Test-Harness !perl-core/PodParser !dev-perl/Locale-gettext )" PDEPEND=3D">=3Dapp-admin/perl-cleaner-1.03 !build? ( >=3Dperl-core/PodParser-1.32 >=3Dperl-core/Test-Harness-2.56 )" pkg_setup() { # I think this should rather be displayed if you *have* 'ithreads' # in USE if it could break things ... if use ithreads then ewarn "PLEASE NOTE: You are compiling ${MY_P} with" ewarn "interpreter-level threading enabled." ewarn "Threading is not supported by all applications " ewarn "that compile against perl. You use threading at " ewarn "your own discretion. " epause 5 fi if [[ ! -f "${ROOT}/usr/$(get_libdir)/${LIBPERL}" ]] then # Make sure we have libperl installed ... eerror "Cannot find ${ROOT}/usr/$(get_libdir)/${LIBPERL}! Make sure th= at you" eerror "have sys-libs/libperl installed properly ..." die "Cannot find ${ROOT}/usr/$(get_libdir)/${LIBPERL}!" fi } src_unpack() { unpack ${A} # Get -lpthread linked before -lc. This is needed # when using glibc >=3D 2.3, or else runtime signal # handling breaks. Fixes bug #14380. # (14 Feb 2003) # reinstated to try to avoid sdl segfaults 03.10.02 cd "${S}"; epatch "${FILESDIR}"/${PN}-prelink-lpthread.patch # Patch perldoc to not abort when it attempts to search # nonexistent directories; fixes bug #16589. # (28 Feb 2003) cd "${S}"; epatch "${FILESDIR}"/${PN}-perldoc-emptydirs.patch # this lays the groundwork for solving the issue of what happens # when people (or ebuilds) install different versiosn of modules # that are in the core, by rearranging the @INC directory to look # site -> vendor -> core. cd "${S}"; epatch "${FILESDIR}"/${P}-reorder-INC.patch # some well-intentioned stuff in http://groups.google.com/groups?hl=3Den= &lr=3D&ie=3DUTF-8&selm=3DPine.SOL.4.10.10205231231200.5399-100000%40maxwe= ll.phys.lafayette.edu # attempts to avoid bringing cccdlflags to bear on static # extensions (like DynaLoader). i believe this is # counterproductive on a Gentoo system which has both a shared # and static libperl, so effectively revert this here. cd "${S}"; epatch "${FILESDIR}"/${PN}-picdl.patch # Configure makes an unwarranted assumption that /bin/ksh is a # good shell. This patch makes it revert to using /bin/sh unless # /bin/ksh really is executable. Should fix bug 42665. # rac 2004.06.09 cd "${S}"; epatch "${FILESDIR}"/${PN}-noksh.patch # makedepend.SH contains a syntax error which is ignored by bash but cau= ses # dash to abort epatch "${FILESDIR}"/${P}-makedepend-syntax.patch # We do not want the build root in the linked perl module's RUNPATH, so # strip paths containing PORTAGE_TMPDIR if its set. This is for the # MakeMaker module, bug #105054. epatch "${FILESDIR}"/${PN}-5.8.7-MakeMaker-RUNPATH.patch # Starting and hopefully ending with 5.8.7 we observe stack # corruption with the regexp handling in perls DynaLoader code # with ssp enabled. This become fatal during compile time so we # temporally disable ssp on two regexp files till upstream has a # chance to work it out. Bug #97452 [[ -n $(test-flags -fno-stack-protector) ]] && \ epatch "${FILESDIR}"/${PN}-regexp-nossp.patch # On PA7200, uname -a contains a single quote and we need to # filter it otherwise configure fails. See #125535. epatch "${FILESDIR}"/perl-hppa-pa7200-configure.patch #[[ ${get_libdir} =3D=3D lib64 ]] && cd ${S} && epatch ${FILESDIR}/${P}-= lib64.patch use amd64 || use ppc64 && cd "${S}" && epatch "${FILESDIR}"/${P}-lib64.p= atch [[ ${CHOST} =3D=3D *-dragonfly* ]] && cd "${S}" && epatch "${FILESDIR}"/= ${P}-dragonfly-clean.patch [[ ${CHOST} =3D=3D *-freebsd* ]] && cd "${S}" && epatch "${FILESDIR}"/${= P}-fbsdhints.patch cd "${S}"; epatch "${FILESDIR}"/${P}-USE_MM_LD_RUN_PATH.patch cd "${S}"; epatch "${FILESDIR}"/${P}-links.patch # c++ patch - should address swig related items cd "${S}"; epatch "${FILESDIR}"/${P}-cplusplus.patch epatch "${FILESDIR}"/${P}-gcc42-command-line.patch # Newer linux-headers don't include asm/page.h. Fix this. # Patch from bug 168312, thanks Peter! has_version '>sys-kernel/linux-headers-2.6.20' && epatch "${FILESDIR}"/$= {P}-asm-page-h-compile-failure.patch # perlcc fix patch - bug #181229 epatch "${FILESDIR}"/${P}-perlcc.patch # patch to fix bug #198196 # UTF/Regular expressions boundary error (CVE-2007-5116) epatch "${FILESDIR}"/${P}-utf8-boundary.patch # patch to fix bug #219203 epatch "${FILESDIR}"/${P}-CVE-2008-1927.patch epatch "${FILESDIR}"/${P}-CAN-2005-0448-rmtree-2.patch } myconf() { # the myconf array is declared in src_configure myconf=3D( "${myconf[@]}" "$@" ) } src_configure() { declare -a myconf # some arches and -O do not mix :) use arm && replace-flags -O? -O1 use ppc && replace-flags -O? -O1 use ia64 && replace-flags -O? -O1 # Perl has problems compiling with -Os in your flags with glibc use elibc_uclibc || replace-flags "-Os" "-O2" ( gcc-specs-ssp && use ia64 ) && append-flags -fno-stack-protector # This flag makes compiling crash in interesting ways filter-flags -malign-double # Fixes bug #97645 use ppc && filter-flags -mpowerpc-gpopt # Fixes bug #143895 on gcc-4.1.1 filter-flags "-fsched2-use-superblocks" export LC_ALL=3D"C" case ${CHOST} in *-freebsd*) osname=3D"freebsd" ;; *-dragonfly*) osname=3D"dragonfly" ;; *-netbsd*) osname=3D"netbsd" ;; *-openbsd*) osname=3D"openbsd" ;; *-darwin*) osname=3D"darwin" ;; *) osname=3D"linux" ;; esac if use ithreads then einfo "using ithreads" mythreading=3D"-multi" myconf -Dusethreads myarch=3D${CHOST} myarch=3D"${myarch%%-*}-${osname}-thread" else myarch=3D${CHOST} myarch=3D"${myarch%%-*}-${osname}" fi local inclist=3D$(for v in $PERL_OLDVERSEN; do echo -n "$v $v/$myarch$my= threading "; done) # allow either gdbm to provide ndbm (in ) or db1 myndbm=3D'U' mygdbm=3D'U' mydb=3D'U' if use gdbm then mygdbm=3D'D' myndbm=3D'D' fi if use berkdb then mydb=3D'D' has_version '=3Dsys-libs/db-1*' && myndbm=3D'D' fi myconf "-${myndbm}i_ndbm" "-${mygdbm}i_gdbm" "-${mydb}i_db" if use mips then # this is needed because gcc 3.3-compiled kernels will hang # the machine trying to run this test - check with `Kumba # 2003.06.26 myconf -Dd_u32align fi if use perlsuid then myconf -Dd_dosuid ewarn "You have enabled Perl's suid compile. Please" ewarn "read http://search.cpan.org/~nwclark/perl-5.8.8/INSTALL#suidperl= " epause 3 fi if use debug then CFLAGS=3D"${CFLAGS} -g" myconf -DDEBUGGING fi if use sparc then myconf -Ud_longdbl fi if use alpha && "$(tc-getCC)" =3D=3D "ccc" then ewarn "Perl will not be built with berkdb support, use gcc if you neede= d it..." myconf -Ui_db -Ui_ndbm fi [[ -n "${ABI}" ]] && myconf "-Dusrinc=3D$(get_ml_incdir)" [[ ${ELIBC} =3D=3D "FreeBSD" ]] && myconf "-Dlibc=3D/usr/$(get_libdir)/l= ibc.a" if [[ $(get_libdir) !=3D "lib" ]] ; then # We need to use " and not ', as the written config.sh use ' ... myconf "-Dlibpth=3D/usr/local/$(get_libdir) /$(get_libdir) /usr/$(get_l= ibdir)" fi sh Configure -des \ -Darchname=3D"${myarch}" \ -Dcccdlflags=3D'-fPIC' \ -Dccdlflags=3D'-rdynamic' \ -Dcc=3D"$(tc-getCC)" \ -Dprefix=3D'/usr' \ -Dvendorprefix=3D'/usr' \ -Dsiteprefix=3D'/usr' \ -Dlocincpth=3D' ' \ -Doptimize=3D"${CFLAGS}" \ -Duselargefiles \ -Dd_semctl_semun \ -Dscriptdir=3D/usr/bin \ -Dman1dir=3D/usr/share/man/man1 \ -Dman3dir=3D/usr/share/man/man3 \ -Dinstallman1dir=3D/usr/share/man/man1 \ -Dinstallman3dir=3D/usr/share/man/man3 \ -Dman1ext=3D'1' \ -Dman3ext=3D'3pm' \ -Dinc_version_list=3D"$inclist" \ -Dcf_by=3D'Gentoo' \ -Ud_csh \ -Dusenm \ "${myconf[@]}" || die "Unable to configure" } src_compile() { # would like to bracket this with a test for the existence of a # dotfile, but can't clean it automatically now. src_configure emake -j1 || die "Unable to make" } src_test() { use elibc_uclibc && export MAKEOPTS=3D"${MAKEOPTS} -j1" emake -i test CCDLFLAGS=3D || die "test failed" } src_install() { export LC_ALL=3D"C" # Need to do this, else apps do not link to dynamic version of # the library ... local coredir=3D"/usr/$(get_libdir)/perl5/${MY_PV}/${myarch}${mythreadin= g}/CORE" dodir ${coredir} dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/${LIBPERL} dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/libperl$(get_li= bname ${PERLSLOT}) dosym ../../../../../$(get_libdir)/${LIBPERL} ${coredir}/libperl$(get_li= bname) # Fix for "stupid" modules and programs dodir /usr/$(get_libdir)/perl5/site_perl/${MY_PV}/${myarch}${mythreading= } local installtarget=3Dinstall if use build ; then installtarget=3Dinstall.perl fi make DESTDIR=3D"${D}" ${installtarget} || die "Unable to make ${installt= arget}" rm "${D}"/usr/bin/perl ln -s perl${MY_PV} "${D}"/usr/bin/perl cp -f utils/h2ph utils/h2ph_patched epatch "${FILESDIR}"/${PN}-h2ph-ansi-header.patch LD_LIBRARY_PATH=3D. ./perl -Ilib utils/h2ph_patched \ -a -d "${D}"/usr/$(get_libdir)/perl5/${MY_PV}/${myarch}${mythreading} <= ${i}.new &&\ mv ${i}.new ${i} || die "Sed failed" done # A poor fix for the miniperl issues dosed 's:./miniperl:/usr/bin/perl:' /usr/$(get_libdir)/perl5/${MY_PV}/Ex= tUtils/xsubpp fperms 0444 /usr/$(get_libdir)/perl5/${MY_PV}/ExtUtils/xsubpp dosed 's:./miniperl:/usr/bin/perl:' /usr/bin/xsubpp fperms 0755 /usr/bin/xsubpp # This removes ${D} from Config.pm and .packlist for i in `find "${D}" -iname "Config.pm"` `find "${D}" -iname ".packlist= "`;do einfo "Removing ${D} from ${i}..." sed -e "s:${D}::" ${i} > ${i}.new &&\ mv ${i}.new ${i} || die "Sed failed" done # Note: find out from psm why we would need/want this. # ( use berkdb && has_version '=3Dsys-libs/db-1*' ) || # find ${D} -name "*NDBM*" | xargs rm -f dodoc Changes* Artistic Copying README Todo* AUTHORS if use doc then # HTML Documentation # We expect errors, warnings, and such with the following. dodir /usr/share/doc/${PF}/html ./perl installhtml \ --podroot=3D'.' \ --podpath=3D'lib:ext:pod:vms' \ --recurse \ --htmldir=3D"${D}/usr/share/doc/${PF}/html" \ --libpods=3D'perlfunc:perlguts:perlvar:perlrun:perlop' fi cd `find "${D}" -name Path.pm|sed -e 's/Path.pm//'` # CAN patch in bug 79685 #epatch "${FILESDIR}"/${P}-CAN-2005-0448-rmtree-2.patch # Remove those items we PDPEND on rm -f "${D}"/usr/bin/pod2usage rm -f "${D}"/usr/bin/podchecker rm -f "${D}"/usr/bin/podselect rm -f "${D}"/usr/bin/prove rm -f "${D}"/usr/share/man/man1/pod2usage* rm -f "${D}"/usr/share/man/man1/podchecker* rm -f "${D}"/usr/share/man/man1/podselect* rm -f "${D}"/usr/share/man/man1/prove* if use build ; then src_remove_extra_files fi } src_remove_extra_files() { local prefix=3D"./usr" # ./ is important local bindir=3D"${prefix}/bin" local perlroot=3D"${prefix}/$(get_libdir)/perl5" # perl installs per-arc= h dirs local prV=3D"${perlroot}/${MY_PV}" # myarch and mythreading are defined inside src_configure() local prVA=3D"${prV}/${myarch}${mythreading}" # I made this list from the Mandr*, Debian and ex-Connectiva perl-base l= ist # Then, I added several files to get GNU autotools running # FIXME: should this be in a separated file to be sourced? local MINIMAL_PERL_INSTALL=3D" ${bindir}/h2ph ${bindir}/perl ${bindir}/perl${MY_PV} ${bindir}/pod2man ${prV}/attributes.pm ${prV}/AutoLoader.pm ${prV}/autouse.pm ${prV}/base.pm ${prV}/bigint.pm ${prV}/bignum.pm ${prV}/bigrat.pm ${prV}/blib.pm ${prV}/bytes_heavy.pl ${prV}/bytes.pm ${prV}/Carp/Heavy.pm ${prV}/Carp.pm ${prV}/charnames.pm ${prV}/Class/Struct.pm ${prV}/constant.pm ${prV}/diagnostics.pm ${prV}/DirHandle.pm ${prV}/Exporter/Heavy.pm ${prV}/Exporter.pm ${prV}/ExtUtils/Command.pm ${prV}/ExtUtils/Constant.pm ${prV}/ExtUtils/Embed.pm ${prV}/ExtUtils/Installed.pm ${prV}/ExtUtils/Install.pm ${prV}/ExtUtils/Liblist.pm ${prV}/ExtUtils/MakeMaker.pm ${prV}/ExtUtils/Manifest.pm ${prV}/ExtUtils/Mkbootstrap.pm ${prV}/ExtUtils/Mksymlists.pm ${prV}/ExtUtils/MM_Any.pm ${prV}/ExtUtils/MM_MacOS.pm ${prV}/ExtUtils/MM.pm ${prV}/ExtUtils/MM_Unix.pm ${prV}/ExtUtils/MY.pm ${prV}/ExtUtils/Packlist.pm ${prV}/ExtUtils/testlib.pm ${prV}/ExtUtils/Miniperl.pm ${prV}/ExtUtils/Command/MM.pm ${prV}/ExtUtils/Constant/Base.pm ${prV}/ExtUtils/Constant/Utils.pm ${prV}/ExtUtils/Constant/XS.pm ${prV}/ExtUtils/Liblist/Kid.pm ${prV}/ExtUtils/MakeMaker/bytes.pm ${prV}/ExtUtils/MakeMaker/vmsish.pm ${prV}/fields.pm ${prV}/File/Basename.pm ${prV}/File/Compare.pm ${prV}/File/Copy.pm ${prV}/File/Find.pm ${prV}/FileHandle.pm ${prV}/File/Path.pm ${prV}/File/Spec.pm ${prV}/File/Spec/Unix.pm ${prV}/File/stat.pm ${prV}/filetest.pm ${prVA}/attrs.pm ${prVA}/auto/attrs ${prVA}/auto/Cwd/Cwd$(get_libname) ${prVA}/auto/Data/Dumper/Dumper$(get_libname) ${prVA}/auto/DynaLoader/dl_findfile.al ${prVA}/auto/Fcntl/Fcntl$(get_libname) ${prVA}/auto/File/Glob/Glob$(get_libname) ${prVA}/auto/IO/IO$(get_libname) ${prVA}/auto/POSIX/autosplit.ix ${prVA}/auto/POSIX/fstat.al ${prVA}/auto/POSIX/load_imports.al ${prVA}/auto/POSIX/POSIX.bs ${prVA}/auto/POSIX/POSIX$(get_libname) ${prVA}/auto/POSIX/assert.al ${prVA}/auto/POSIX/stat.al ${prVA}/auto/POSIX/tmpfile.al ${prVA}/auto/re/re$(get_libname) ${prVA}/auto/Socket/Socket$(get_libname) ${prVA}/auto/Storable/autosplit.ix ${prVA}/auto/Storable/_retrieve.al ${prVA}/auto/Storable/retrieve.al ${prVA}/auto/Storable/Storable$(get_libname) ${prVA}/auto/Storable/_store.al ${prVA}/auto/Storable/store.al ${prVA}/B/Deparse.pm ${prVA}/B.pm ${prVA}/Config.pm ${prVA}/Config_heavy.pl ${prVA}/CORE/libperl$(get_libname) ${prVA}/Cwd.pm ${prVA}/Data/Dumper.pm ${prVA}/DynaLoader.pm ${prVA}/encoding.pm ${prVA}/Errno.pm ${prVA}/Fcntl.pm ${prVA}/File/Glob.pm ${prVA}/_h2ph_pre.ph ${prVA}/IO/File.pm ${prVA}/IO/Handle.pm ${prVA}/IO/Pipe.pm ${prVA}/IO.pm ${prVA}/IO/Seekable.pm ${prVA}/IO/Select.pm ${prVA}/IO/Socket.pm ${prVA}/lib.pm ${prVA}/NDBM_File.pm ${prVA}/ops.pm ${prVA}/POSIX.pm ${prVA}/re.pm ${prVA}/Socket.pm ${prVA}/Storable.pm ${prVA}/threads ${prVA}/threads.pm ${prVA}/XSLoader.pm ${prV}/Getopt/Long.pm ${prV}/Getopt/Std.pm ${prV}/if.pm ${prV}/integer.pm ${prV}/IO/Socket/INET.pm ${prV}/IO/Socket/UNIX.pm ${prV}/IPC/Open2.pm ${prV}/IPC/Open3.pm ${prV}/less.pm ${prV}/List/Util.pm ${prV}/locale.pm ${prV}/open.pm ${prV}/overload.pm ${prV}/Pod/InputObjects.pm ${prV}/Pod/Man.pm ${prV}/Pod/ParseLink.pm ${prV}/Pod/Parser.pm ${prV}/Pod/Select.pm ${prV}/Pod/Text.pm ${prV}/Pod/Usage.pm ${prV}/PerlIO.pm ${prV}/Scalar/Util.pm ${prV}/SelectSaver.pm ${prV}/sigtrap.pm ${prV}/sort.pm ${prV}/stat.pl ${prV}/strict.pm ${prV}/subs.pm ${prV}/Symbol.pm ${prV}/Text/ParseWords.pm ${prV}/Text/Tabs.pm ${prV}/Text/Wrap.pm ${prV}/Time/Local.pm ${prV}/unicore/Canonical.pl ${prV}/unicore/Exact.pl ${prV}/unicore/lib/gc_sc/Digit.pl ${prV}/unicore/lib/gc_sc/Word.pl ${prV}/unicore/PVA.pl ${prV}/unicore/To/Fold.pl ${prV}/unicore/To/Lower.pl ${prV}/unicore/To/Upper.pl ${prV}/utf8_heavy.pl ${prV}/utf8.pm ${prV}/vars.pm ${prV}/vmsish.pm ${prV}/warnings ${prV}/warnings.pm ${prV}/warnings/register.pm" if use perlsuid ; then MINIMAL_PERL_INSTALL=3D"${MINIMAL_PERL_INSTALL} ${bindir}/suidperl ${bindir}/sperl${MY_PV}" fi pushd "${D}" > /dev/null # Remove cruft einfo "Removing files that are not in the minimal install" echo "${MINIMAL_PERL_INSTALL}" for f in $(find . -type f); do has ${f} ${MINIMAL_PERL_INSTALL} || rm -f ${f} done # Remove empty directories find . -depth -type d | xargs -r rmdir &> /dev/null popd > /dev/null } pkg_postinst() { INC=3D$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line = =3D~ m/'${MY_PV}'|etc|local|perl$/; print "$line\n" }') if [[ "${ROOT}" =3D "/" ]] then ebegin "Removing old .ph files" for DIR in $INC; do if [[ -d "${ROOT}"/$DIR ]]; then for file in $(find "${ROOT}"/$DIR -name "*.ph" -type f); do rm "${ROOT}"/$file einfo "<< $file" done fi done # Silently remove the now empty dirs for DIR in $INC; do if [[ -d "${ROOT}"/$DIR ]]; then find "${ROOT}"/$DIR -depth -type d | xargs -r rmdir &> /dev/null fi done ebegin "Generating ConfigLocal.pm (ignore any error)" enc2xs -C ebegin "Converting C header files to the corresponding Perl format" cd /usr/include; h2ph * h2ph -r sys/* arpa/* netinet/* bits/* security/* asm/* gnu/* linux/* ge= ntoo* cd /usr/include/linux h2ph * fi # This has been moved into a function because rumor has it that a future = release # of portage will allow us to check what version was just removed - which= means # we will be able to invoke this only as needed :) # Tried doing this via -z, but $INC is too big... if [[ "${INC}x" !=3D "x" ]]; then cleaner_msg epause 5 fi } cleaner_msg() { eerror "You have had multiple versions of perl. It is recommended" eerror "that you run perl-cleaner now. perl-cleaner will" eerror "assist with this transition. This script is capable" eerror "of cleaning out old .ph files, rebuilding modules for " eerror "your new version of perl, as well as re-emerging" eerror "applications that compiled against your old libperl$(get_libname= )" eerror eerror "PLEASE DO NOT INTERRUPT THE RUNNING OF THIS SCRIPT." eerror "Part of the rebuilding of applications compiled against " eerror "your old libperl involves temporarily unmerging" eerror "them - interruptions could leave you with unmerged" eerror "packages before they can be remerged." eerror "" eerror "If you have run perl-cleaner and a package still gives" eerror "you trouble, and re-emerging it fails to correct" eerror "the problem, please check http://bugs.gentoo.org/" eerror "for more information or to report a bug." eerror "" eerror "" }