Emerge perl-5.18* fails in compile

[Snaketails]

I have come across this perl update problem, last version I had was perl-5.12 now it want's perl-5.18

I have got it to allow install perl-5.18, but the compiling is failing


emerge --info '=dev-lang/perl-5.18.2-r2::gentoo'

[Snaketails]

Ok, it seems the last part was truncated, I'll try again

cat /var/tmp/portage/dev-lang/perl-5.18.2-r2/temp/environment

[code:1:53a3657ada]

declare -x ABI="amd64"
declare -x ABI_X86="64"
declare -x ALSA_CARDS="ali5451 als4000 atiixp atiixp-modem bt87x ca0106 cmipci emu10k1x ens1370 ens1371 es1938 es1968 fm801 hda-intel intel8x0 intel8x0m maestro3 trident usb-audio via82xx via82xx-modem ymfpci"
declare -x AMANDA_CONFIG_NAME="DailySet1"
declare -x AMANDA_DBGDIR="/var/tmp/amanda"
declare -x AMANDA_GROUP_GID="87"
declare -x AMANDA_GROUP_NAME="amanda"
declare -x AMANDA_PORTS=""
declare -x AMANDA_PORTS_BOTH=""
declare -x AMANDA_PORTS_TCP=""
declare -x AMANDA_PORTS_UDP=""
declare -x AMANDA_SERVER="jumpgate"
declare -x AMANDA_SERVER_INDEX="jumpgate"
declare -x AMANDA_SERVER_TAPE="jumpgate"
declare -x AMANDA_TAR="/bin/tar"
declare -x AMANDA_TAR_LISTDIR="/var/spool/amanda/tar-lists"
declare -x AMANDA_TMPDIR="/var/tmp/amanda"
declare -x AMANDA_USER_GROUPS="amanda"
declare -x AMANDA_USER_HOMEDIR="/var/spool/amanda"
declare -x AMANDA_USER_NAME="amanda"
declare -x AMANDA_USER_SH="/bin/bash"
declare -x AMANDA_USER_UID="87"
declare -x ANT_HOME="/usr/share/ant"
declare -x APACHE2_MODULES="actions alias auth_basic auth_digest authn_anon authn_dbd authn_dbm authn_default authn_file authz_dbm authz_default authz_groupfile authz_host authz_owner authz_user autoindex cache cgi cgid dav dav_fs dav_lock dbd deflate dir disk_cache env expires ext_filter file_cache filter headers ident imagemap include info log_config logio mem_cache mime mime_magic negotiation php proxy proxy_ajp proxy_balancer proxy_connect proxy_http rewrite setenvif so speling status unique_id userdir usertrack vhost_alias"
declare -x ARCH="amd64"
declare -- ARCH_LIB="/usr/lib64/perl5/5.18.2/x86_64-linux"
declare -x BOOTSTRAP_USE="cxx unicode internal-glib python_targets_python3_3 python_targets_python2_7 multilib"
declare -x BUILD_BZIP2="0"
declare -x BUILD_ZLIB="False"
declare -x BZIP2_INCLUDE="/usr/include"
declare -x BZIP2_LIB="/usr/lib64"
declare -x CALLIGRA_FEATURES="kexi words flow plan sheets stage tables krita karbon braindump author"
declare -x CAMERAS="ptp2"
declare -x CBUILD="x86_64-pc-linux-gnu"
declare -x CCASFLAGS=""
declare -x CFLAGS="-O2 -march=core2 -mtune=core2 -pipe"
declare -x CFLAGS_amd64="-m64"
declare -x CFLAGS_default
declare -x CFLAGS_x32="-mx32"
declare -x CFLAGS_x86="-m32"
declare -x CHOST="x86_64-pc-linux-gnu"
declare -x CHOST_amd64="x86_64-pc-linux-gnu"
declare -x CHOST_default="x86_64-pc-linux-gnu"
declare -x CHOST_x32="x86_64-pc-linux-gnux32"
declare -x CHOST_x86="i686-pc-linux-gnu"
declare -x COLLECTD_PLUGINS="df interface irq load memory rrdtool swap syslog"
declare -x CPPFLAGS=""
declare -x CTARGET_default="x86_64-pc-linux-gnu"
declare -x CXXFLAGS="-O2 -march=core2 -mtune=core2 -pipe"
declare -x DCCC_PATH="/usr/lib64/distcc/bin"
declare -x DEFAULT_ABI="amd64"
declare -x DEFINED_PHASES=" configure install postinst postrm prepare setup test"
declare DEPEND="
berkdb? ( sys-libs/db )
gdbm? ( >=sys-libs/gdbm-1.8.3 )
app-arch/bzip2
sys-libs/zlib

!prefix? ( elibc_FreeBSD? ( sys-freebsd/freebsd-mk-defs ) )
"
declare DESCRIPTION="Larry Wall's Practical Extraction and Report Language"
declare -x DESTTREE="/usr"
declare -x DIROPTIONS="-m0755"
declare -x EAPI="5"
declare -x ELIBC="glibc"
declare -- EPATCH_COMMON_OPTS="-g0 -E --no-backup-if-mismatch"
declare -- EPATCH_EXCLUDE=""
declare -- EPATCH_FORCE="no"
declare -- EPATCH_MULTI_MSG="Applying various patches (bugfixes/updates) ..."
declare -- EPATCH_OPTS=" -p1"
declare -- EPATCH_SINGLE_MSG=" fixes/freemint.diff ..."
declare -- EPATCH_SOURCE="/var/tmp/portage/dev-lang/perl-5.18.2-r2/work/patch"
declare -- EPATCH_SUFFIX="patch.bz2"
declare -x EXEOPTIONS="-m0755"
declare -x FCFLAGS="-O2 -pipe"
declare -x FETCHCOMMAND_SSH="bash -c \"x=\\\${2#ssh://} ; host=\\\${x%%/*} ; port=\\\${host##*:} ; host=\\\${host%:*} ; [[ \\\${host} = \\\${port} ]] && port=22 ; exec rsync --rsh=\\\"ssh -p\\\${port} \\\${3}\\\" -avP \\\"\\\${host}:/\\\${x#*/}\\\" \\\"\\\$1\\\"\" rsync \"\${DISTDIR}/\${FILE}\" \"\${URI}\" \"\${PORTAGE_SSH_OPTS}\""
declare -x FFLAGS="-O2 -pipe"
declare -x FLTK_DOCDIR="/usr/share/doc/fltk-1.3.0-r1/html"
declare -x GCC_SPECS=""
declare -x GPSD_PROTOCOLS="ashtech aivdm earthmate evermore fv18 garmin garmintxt gpsclock itrax mtk3301 nmea ntrip navcom oceanserver oldstyle oncore rtcm104v2 rtcm104v3 sirf superstar2 timing tsip tripmate tnt ublox ubx"
declare -x GRUB_PLATFORMS=""
declare -x GSETTINGS_BACKEND="dconf"
declare HDEPEND=""
declare -x HG="/usr/bin/hg"
declare HOMEPAGE="http://www.perl.org/"
declare -x INHERITED=" multilib toolchain-funcs eutils alternatives flag-o-matic multiprocessing"
declare -x INPUT_DEVICES="evdev mouse keyboard"
declare -x INSDESTTREE=""
declare -x INSOPTIONS="-m0644"
declare IUSE="berkdb debug doc gdbm ithreads "
declare -x IUSE_EFFECTIVE="abi_x86_64 alpha amd64 amd64-fbsd amd64-linux arm arm-linux arm64 berkdb debug doc elibc_AIX elibc_Cygwin elibc_Darwin elibc_DragonFly elibc_FreeBSD elibc_HPUX elibc_Interix elibc_NetBSD elibc_OpenBSD elibc_SunOS elibc_Winnt elibc_glibc elibc_mintlib elibc_musl elibc_uclibc gdbm hppa hppa-hpux ia64 ia64-hpux ia64-linux ithreads kernel_AIX kernel_Cygwin kernel_Darwin kernel_FreeBSD kernel_HPUX kernel_Interix kernel_NetBSD kernel_OpenBSD kernel_SunOS kernel_Winnt kernel_freemint kernel_linux m68k m68k-mint mips ppc ppc-aix ppc-macos ppc-openbsd ppc64 ppc64-linux prefix s390 sh sparc sparc-fbsd sparc-solaris sparc64-freebsd sparc64-solaris userland_BSD userland_GNU x64-freebsd x64-macos x64-openbsd x64-solaris x86 x86-cygwin x86-fbsd x86-freebsd x86-interix x86-linux x86-macos x86-netbsd x86-openbsd x86-solaris x86-winnt"
declare -x IUSE_IMPLICIT="abi_x86_64 prefix"
declare -x JAVAC="/etc/java-config-2/current-system-vm/bin/javac"
declare -x JAVA_HOME="/etc/java-config-2/current-system-vm"
declare -x JDK_HOME="/etc/java-config-2/current-system-vm"
declare -x KERNEL="linux"
declare -x KERNEL_ABI="amd64"
declare -x KEYWORDS="alpha amd64 ~arm arm64 hppa ~ia64 m68k ~mips ~ppc ~ppc64 s390 sh ~sparc x86 ~ppc-aix ~amd64-fbsd ~x86-fbsd ~x64-freebsd ~x86-freebsd ~hppa-hpux ~ia64-hpux ~x86-interix ~amd64-linux ~ia64-linux ~x86-linux ~ppc-macos ~x64-macos ~x86-macos ~m68k-mint ~sparc-solaris ~sparc64-solaris ~x64-solaris ~x86-solaris"
declare -x LCD_DEVICES="bayrad cfontz cfontz633 glk hd44780 lb216 lcdm001 mtxorb ncurses text"
declare -x LC_ALL="C"
declare -x LC_MESSAGES="C"
declare -x LDFLAGS="-Wl,-O1 -Wl,--as-needed"
declare -x LDFLAGS_amd64="-m elf_x86_64"
declare -x LDFLAGS_default
declare -x LDFLAGS_x32="-m elf32_x86_64"
declare -x LDFLAGS_x86="-m elf_i386"
declare -x LIBBLURAY_CP="/usr/share/libbluray/lib/libbluray.jar"
declare -x LIBDIR_amd64="lib64"
declare -x LIBDIR_amd64_fbsd="lib64"
declare -x LIBDIR_arm="lib"
declare -x LIBDIR_arm64="lib64"
declare -x LIBDIR_default="lib"
declare -x LIBDIR_n32="lib32"
declare -x LIBDIR_n64="lib64"
declare -x LIBDIR_o32="lib"
declare -x LIBDIR_ppc="lib32"
declare -x LIBDIR_ppc64="lib64"
declare -x LIBDIR_s390="lib32"
declare -x LIBDIR_s390x="lib64"
declare -x LIBDIR_sparc32="lib32"
declare -x LIBDIR_sparc64="lib64"
declare -x LIBDIR_x32="libx32"
declare -x LIBDIR_x86="lib32"
declare -x LIBDIR_x86_fbsd="lib32"
declare -x LIBOPTIONS="-m0644"
declare -- LIBPERL="libperl.so.5.18.2"
declare -x LIBREOFFICE_EXTENSIONS="presenter-console presenter-minimizer"
declare -x LICENSE="|| ( Artistic GPL-1+ )"
declare -x LIRC_DEVICES="dvico"
declare -x MAIL="/var/mail/root"
declare -x MAKEOPTS="-j5"
declare -- MODULE_AUTHOR="RJBS"
declare -x MULTILIB_ABIS="amd64 x86"
declare -x MULTILIB_STRICT_DENY="64-bit.*shared object"
declare -x MULTILIB_STRICT_DIRS="/lib32 /lib /usr/lib32 /usr/lib /usr/kde/*/lib32 /usr/kde/*/lib /usr/qt/*/lib32 /usr/qt/*/lib /usr/X11R6/lib32 /usr/X11R6/lib"
declare -x MULTILIB_STRICT_EXEMPT="(perl5|gcc|gcc-lib|binutils|eclipse-3|debug|portage|udev|systemd|clang|python-exec)"
declare -x MULTIOSDIRS="../lib64:../lib32"
declare -- MY_P="perl-5.18.2"
declare -- MY_PV="5.18.2"
declare -x NETBEANS="apisupport cnd groovy gsf harness ide identity j2ee java mobility nb php profiler soa visualweb webcommon websvccommon xml"
declare -x NETBEANS_MODULES="nb harness ide groovy php ruby ergonomics enterprise apisupport java profiler websvccommon"
declare -x NUT_DRIVERS="usbhid-ups blazer_usb"
declare -x OFFICE_IMPLEMENTATION="libreoffice"
declare -x OPENCL_PROFILE="nvidia"
declare -x OPENGL_PROFILE="xorg-x11"
declare -- PATCH_VER="2"
declare -x PATH="/usr/lib64/portage/bin/ebuild-helpers:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/x86_64-pc-linux-gnu/gcc-bin/4.6.3:/usr/lib64/subversion/bin"
declare PDEPEND="
>=app-admin/perl-cleaner-2.5
>=virtual/perl-File-Temp-0.230.0
!=perl-core/File-Temp-0.230.400
"
declare -- PERL_OLDVERSEN="5.18.0 5.18.1"
declare -x PHP_TARGETS="php5-5"
declare -x PKG_CONFIG_PATH="/usr/lib64/pkgconfig"
declare -x POLICY_TYPES="strict targeted"
declare -a PORTAGE_DOCOMPRESS='([0]="/usr/share/doc" [1]="/usr/share/info" [2]="/usr/share/man")'
declare -x PORTAGE_DOCOMPRESS_SIZE_LIMIT="128"
declare -a PORTAGE_DOCOMPRESS_SKIP='([0]="/usr/share/doc/perl-5.18.2-r2/html")'
declare -x PORTAGE_FETCH_T="portage_fetch_t"
declare -x PORTAGE_SANDBOX_T="portage_sandbox_t"
declare -x PRELINK_PATH_MASK="/usr/lib64/libfreebl3.so:/usr/lib64/libnssdbm3.so:/usr/lib64/libsoftokn3.so"
declare -- PRIV_LIB="/usr/lib64/perl5/5.18.2"
declare -x PROFILE_ONLY_VARIABLES="ARCH ELIBC IUSE_IMPLICIT KERNEL USERLAND USE_EXPAND_IMPLICIT USE_EXPAND_UNPREFIXED USE_EXPAND_VALUES_ARCH USE_EXPAND_VALUES_ELIBC USE_EXPAND_VALUES_KERNEL USE_EXPAND_VALUES_USERLAND"
declare -x PROPERTIES=""
declare -x PROVIDE=""
declare -x PYTHONDONTWRITEBYTECODE="1"
declare -x PYTHON_SINGLE_TARGET="python2_7"
declare -x PYTHON_TARGETS="python2_7"
declare -x QEMU_SOFTMMU_TARGETS="x86_64"
declare -x QEMU_USER_TARGETS="x86_64"
declare -x QT_GRAPHICSSYSTEM="raster"
declare -x QT_PLUGIN_PATH="/usr/lib64/kde4/plugins"
declare RDEPEND="
berkdb? ( sys-libs/db )
gdbm? ( >=sys-libs/gdbm-1.8.3 )
app-arch/bzip2
sys-libs/zlib
"
declare REPOSITORY
declare REQUIRED_USE=""
declare -x RESTRICT=""
declare -x RESUMECOMMAND_SSH="bash -c \"x=\\\${2#ssh://} ; host=\\\${x%%/*} ; port=\\\${host##*:} ; host=\\\${host%:*} ; [[ \\\${host} = \\\${port} ]] && port=22 ; exec rsync --rsh=\\\"ssh -p\\\${port} \\\${3}\\\" -avP \\\"\\\${host}:/\\\${x#*/}\\\" \\\"\\\$1\\\"\" rsync \"\${DISTDIR}/\${FILE}\" \"\${URI}\" \"\${PORTAGE_SSH_OPTS}\""
declare -x RUBYOPT="-rauto_gem"
declare -x RUBY_TARGETS="ruby19"
declare -x S="/var/tmp/portage/dev-lang/perl-5.18.2-r2/work/perl-5.18.2"
declare -x SANDBOX_DEBUG="0"
declare -x SANDBOX_DENY=""
declare -x SANDBOX_PID="11304"
declare -x SANDBOX_PREDICT="/var/tmp/portage/dev-lang/perl-5.18.2-r2/homedir:/dev/crypto:/dev/random:/proc/self/coredump_filter:/dev/random:/var/cache/fontconfig"
declare -x SANDBOX_READ="/:/var/tmp"
declare -x SANDBOX_VERBOSE="1"
declare -x SANDBOX_WRITE=":/dev/console:/dev/fd:/dev/full:/dev/null:/dev/pts/:/dev/pty:/dev/shm:/dev/tts:/dev/tty:/dev/vc/:/dev/zero:/proc/self/fd:/tmp/:/usr/lib/cf:/usr/lib/conftest:/usr/lib32/cf:/usr/lib32/conftest:/usr/lib64/cf:/usr/lib64/conftest:/usr/tmp/cf:/usr/tmp/conftest:/var/tmp:/var/tmp/:/var/tmp/portage/dev-lang/perl-5.18.2-r2/homedir/.bash_history"
declare -x SHELL="/bin/bash"
declare -- SHORT_PV="5.18"
declare -- SITE_ARCH="/usr/local/lib64/perl5/5.18.2/x86_64-linux"
declare -- SITE_LIB="/usr/local/lib64/perl5/5.18.2"
declare -x SLOT="0/5.18"
declare SRC_URI="
mirror://cpan/src/5.0/perl-5.18.2.tar.bz2
mirror://cpan/authors/id/R/RJ/RJBS/perl-5.18.2.tar.bz2
mirror://gentoo/perl-5.18.2-patches-2.tar.bz2
http://dev.gentoo.org/~civil/distfiles/dev-lang/perl/perl-5.18.2-patches-2.tar.bz2
"
declare -x SSH_CLIENT="192.168.3.44 52655 22"
declare -x SSH_CONNECTION="192.168.3.44 52655 192.168.3.1 22"
declare -x SSH_TTY="/dev/pts/3"
declare -x SYMLINK_LIB="yes"
declare -x USE="abi_x86_64 amd64 berkdb elibc_glibc gdbm kernel_linux userland_GNU"
declare -x USERLAND="GNU"
declare -x USERNAME="root"
declare -x USE_EXPAND_IMPLICIT="ARCH ELIBC KERNEL USERLAND"
declare -x USE_EXPAND_UNPREFIXED="ARCH"
declare -x USE_EXPAND_VALUES_ARCH="alpha amd64 amd64-fbsd amd64-linux arm arm-linux arm64 hppa hppa-hpux ia64 ia64-hpux ia64-linux m68k m68k-mint mips ppc ppc64 ppc64-linux ppc-aix ppc-macos ppc-openbsd s390 sh sparc sparc64-freebsd sparc64-solaris sparc-fbsd sparc-solaris x64-freebsd x64-macos x64-openbsd x64-solaris x86 x86-cygwin x86-fbsd x86-freebsd x86-interix x86-linux x86-macos x86-netbsd x86-openbsd x86-solaris x86-winnt"
declare -x USE_EXPAND_VALUES_ELIBC="AIX Cygwin Darwin DragonFly FreeBSD glibc HPUX Interix mintlib musl NetBSD OpenBSD SunOS uclibc Winnt"
declare -x USE_EXPAND_VALUES_KERNEL="AIX Cygwin Darwin FreeBSD freemint HPUX Interix linux NetBSD OpenBSD SunOS Winnt"
declare -x USE_EXPAND_VALUES_USERLAND="BSD GNU"
declare -x USE_PYTHON="2.7"
declare -x VBOX_APP_HOME="/usr/lib64/virtualbox"
declare -- VENDOR_ARCH="/usr/lib64/perl5/vendor_perl/5.18.2/x86_64-linux"
declare -- VENDOR_LIB="/usr/lib64/perl5/vendor_perl/5.18.2"
declare -x VIDEO_CARDS="intel"
declare -x XDG_CONFIG_DIRS="/etc/xdg"
declare -x XDG_DATA_DIRS="/usr/local/share:/usr/share"
declare -x XDG_SESSION_COOKIE="9ade19549b2e62439e2ed8ae0000000a-1413502495.522594-917021615"
declare -x XSESSION="fvwm4"
declare -x XTABLES_ADDONS="quota2 psd pknock lscan length2 ipv4options ipset ipp2p iface geoip fuzzy condition tee tarpit sysrq steal rawnat logmark ipmark dhcpmac delude chaos account"
declare -x ZLIB_INCLUDE="/usr/include"
declare -x ZLIB_LIB="/usr/lib64"
declare -- _EUTILS_ECLASS="1"
declare -x _E_DOCDESTTREE_=""
declare -x _E_EXEDESTTREE_=""
declare -- _FLAG_O_MATIC_ECLASS="1"
declare -- _MULTILIB_ECLASS="1"
declare -- _MULTIPROCESSING_ECLASS="1"
declare -- _TOOLCHAIN_FUNCS_ECLASS="1"
declare -- disabled_extensions="ODBM_File"
declare -- e="/var/video/media/portage/dev-lang/perl/files/eblits/pkg_postrm-v50160001.eblit"
declare -- myarch="x86_64-linux"
declare -- mydb="D"
declare -- mygdbm="D"
declare -- myndbm="D"
declare -- osname="linux"
declare -- patchname="fixes/freemint"
declare -- phase_func
__bashpid ()
{
sh -c 'echo ${PPID}'
}
_epatch_draw_line ()
{
[[ -z $1 ]] && set "$(printf "%65s" '')";
echo "${1//?/=}"
}
_eutils_eprefix_init ()
{
has "${EAPI:-0}" 0 1 2 && : ${ED:=${D}} ${EPREFIX:=} ${EROOT:=${ROOT}}
}
_filter-hardened ()
{
local f;
for f in "$@";
do
case "${f}" in
-fPIC | -fpic | -fPIE | -fpie | -Wl,pie | -pie)
gcc-specs-pie || continue;
is-flagq -nopie || append-flags -nopie
;;
-fstack-protector)
gcc-specs-ssp || continue;
is-flagq -fno-stack-protector || append-flags $(test-flags -fno-stack-protector)
;;
-fstack-protector-all)
gcc-specs-ssp-to-all || continue;
is-flagq -fno-stack-protector-all || append-flags $(test-flags -fno-stack-protector-all)
;;
-fno-strict-overflow)
gcc-specs-nostrict || continue;
is-flagq -fstrict-overflow || append-flags $(test-flags -fstrict-overflow)
;;
esac;
done
}
_filter-var ()
{
local f x var=$1 new=();
shift;
for f in ${!var};
do
for x in "$@";
do
[[ ${f} == ${x} ]] && continue 2;
done;
new+=("${f}");
done;
eval export ${var}=\""${new[*]}"\"
}
_gcc-install-dir ()
{
echo "$(LC_ALL=C $(tc-getCC) -print-search-dirs 2> /dev/null | awk '$1=="install:" {print $2}')"
}
_gcc-specs-directive_raw ()
{
local cc=$(tc-getCC);
local specfiles=$(LC_ALL=C ${cc} -v 2>&1 | awk '$1=="Reading" {print $NF}');
${cc} -dumpspecs 2> /dev/null | cat - ${specfiles} | awk -v directive=$1 'BEGIN { pspec=""; spec=""; outside=1 }
$1=="*"directive":" { pspec=spec; spec=""; outside=0; next }
outside || NF==0 || ( substr($1,1,1)=="*" && substr($1,length($1),1)==":" ) { outside=1; next }
spec=="" && substr($0,1,1)=="+" { spec=pspec " " substr($0,2); next }
{ spec=spec $0 }
END { print spec }';
return 0
}
_gcc-specs-exists ()
{
[[ -f $(_gcc-install-dir)/$1 ]]
}
_gcc_fullversion ()
{
local ver="$1";
shift;
set -- `$(tc-getCPP "$@") -E -P - <<<"__GNUC__ __GNUC_MINOR__ __GNUC_PATCHLEVEL__"`;
eval echo "$ver"
}
_iconins ()
{
( local funcname=$1;
shift;
local size dir;
local context=apps;
local theme=hicolor;
while [[ $# -gt 0 ]]; do
case $1 in
-s | --size)
if [[ ${2%%x*}x${2%%x*} == "$2" ]]; then
size=${2%%x*};
else
size=${2};
fi;
case ${size} in
16 | 22 | 24 | 32 | 36 | 48 | 64 | 72 | 96 | 128 | 192 | 256)
size=${size}x${size}
;;
scalable)

;;
*)
eerror "${size} is an unsupported icon size!";
exit 1
;;
esac;
shift 2
;;
-t | --theme)
theme=${2};
shift 2
;;
-c | --context)
context=${2};
shift 2
;;
*)
if [[ -z ${size} ]]; then
insinto /usr/share/pixmaps;
else
insinto /usr/share/icons/${theme}/${size}/${context};
fi;
if [[ ${funcname} == doicon ]]; then
if [[ -f $1 ]]; then
doins "${1}";
else
if [[ -d $1 ]]; then
shopt -s nullglob;
doins "${1}"/*.{png,svg};
shopt -u nullglob;
else
eerror "${1} is not a valid file/directory!";
exit 1;
fi;
fi;
else
break;
fi;
shift 1
;;
esac;
done;
if [[ ${funcname} == newicon ]]; then
newins "$@";
fi ) || die
}
_is_flagq ()
{
local x var;
eval var=\""\${$1[*]}"\";
for x in ${var};
do
[[ ${x} == $2 ]] && return 0;
done;
return 1
}
_multijob_fork ()
{
[[ $# -eq 1 ]] || die "incorrect number of arguments";
local ret=0;
[[ $1 == "post" ]] && : $(( ++mj_num_jobs ));
if [[ ${mj_num_jobs} -ge ${mj_max_jobs} ]]; then
multijob_finish_one;
ret=$?;
fi;
[[ $1 == "pre" ]] && : $(( ++mj_num_jobs ));
return ${ret}
}
_tc-getPROG ()
{
local tuple=$1;
local v var vars=$2;
local prog=$3;
var=${vars%% *};
for v in ${vars};
do
if [[ -n ${!v} ]]; then
export ${var}="${!v}";
echo "${!v}";
return 0;
fi;
done;
local search=;
[[ -n $4 ]] && search=$(type -p "$4-${prog}");
[[ -z ${search} && -n ${!tuple} ]] && search=$(type -p "${!tuple}-${prog}");
[[ -n ${search} ]] && prog=${search##*/};
export ${var}=${prog};
echo "${!var}"
}
all-flag-vars ()
{
echo {C,CPP,CXX,CCAS,F,FC,LD}FLAGS
}
alternatives_auto_makesym ()
{
has "${EAPI:-0}" 0 1 2 && ! use prefix && EROOT="${ROOT}";
local SYMLINK REGEX ALT myregex;
SYMLINK=$1;
REGEX=$2;
if [ "${REGEX:0:1}" != "/" ]; then
myregex="${SYMLINK%/*}/${REGEX}";
else
myregex=${REGEX};
fi;
ALT="$(for i in $(echo ${EROOT}${myregex}); do echo ${i#${EROOT}}; done | sort -r)";
alternatives_makesym ${SYMLINK} ${ALT}
}
alternatives_makesym ()
{
has "${EAPI:-0}" 0 1 2 && ! use prefix && EPREFIX=;
local ALTERNATIVES="";
local SYMLINK="";
local alt pref;
SYMLINK=${EPREFIX}/${1#${EPREFIX}};
pref=${ROOT%/};
shift;
ALTERNATIVES=$@;
for alt in ${ALTERNATIVES};
do
alt=${EPREFIX}/${alt#${EPREFIX}};
if [ -f "${pref}${alt}" ]; then
if [ "${alt%/*}" = "${SYMLINK%/*}" ]; then
einfo "Linking ${alt} to ${pref}${SYMLINK} (relative)";
ln -sf ${alt##*/} ${pref}${SYMLINK};
else
einfo "Linking ${alt} to ${pref}${SYMLINK} (absolute)";
ln -sf ${pref}${alt} ${pref}${SYMLINK};
fi;
break;
fi;
done;
if [ ! -L ${pref}${SYMLINK} ]; then
ewarn "Unable to establish ${pref}${SYMLINK} symlink";
else
if [ ! -f "`dirname ${pref}${SYMLINK}`/`readlink ${pref}${SYMLINK}`" -a ! -f "`readlink ${pref}${SYMLINK}`" ]; then
ewarn "Removing dead symlink ${pref}${SYMLINK}";
rm -f ${pref}${SYMLINK};
fi;
fi
}
alternatives_pkg_postinst ()
{
if [ -n "${ALTERNATIVES}" -a -n "${SOURCE}" ]; then
alternatives_makesym ${SOURCE} ${ALTERNATIVES};
fi
}
alternatives_pkg_postrm ()
{
if [ -n "${ALTERNATIVES}" -a -n "${SOURCE}" ]; then
alternatives_makesym ${SOURCE} ${ALTERNATIVES};
fi
}
append-cflags ()
{
[[ $# -eq 0 ]] && return 0;
export CFLAGS+=" $*";
return 0
}
append-cppflags ()
{
[[ $# -eq 0 ]] && return 0;
export CPPFLAGS+=" $*";
return 0
}
append-cxxflags ()
{
[[ $# -eq 0 ]] && return 0;
export CXXFLAGS+=" $*";
return 0
}
append-fflags ()
{
[[ $# -eq 0 ]] && return 0;
export FFLAGS+=" $*";
export FCFLAGS+=" $*";
return 0
}
append-flags ()
{
[[ $# -eq 0 ]] && return 0;
case " $* " in
*' '-[DIU]*)
eqawarn 'please use append-cppflags for preprocessor flags'
;;
*' '-L* | *' '-Wl,*)
eqawarn 'please use append-ldflags for linker flags'
;;
esac;
append-cflags "$@";
append-cxxflags "$@";
append-fflags "$@";
return 0
}
append-ldflags ()
{
[[ $# -eq 0 ]] && return 0;
local flag;
for flag in "$@";
do
[[ ${flag} == -l* ]] && eqawarn "Appending a library link instruction (${flag}); libraries to link to should not be passed through LDFLAGS";
done;
export LDFLAGS="${LDFLAGS} $*";
return 0
}
append-lfs-flags ()
{
[[ $# -ne 0 ]] && die "append-lfs-flags takes no arguments";
append-cppflags -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE
}
append-libs ()
{
[[ $# -eq 0 ]] && return 0;
local flag;
for flag in "$@";
do
if [[ -z "${flag// }" ]]; then
eqawarn "Appending an empty argument to LIBS is invalid! Skipping.";
continue;
fi;
case $flag in
-[lL]*)
export LIBS="${LIBS} ${flag}"
;;
-*)
eqawarn "Appending non-library to LIBS (${flag}); Other linker flags should be passed via LDFLAGS";
export LIBS="${LIBS} ${flag}"
;;
*)
export LIBS="${LIBS} -l${flag}"
;;
esac;
done;
return 0
}
bashpid ()
{
sh -c 'echo ${PPID}'
}
built_with_use ()
{
_eutils_eprefix_init;
local hidden="no";
if [[ $1 == "--hidden" ]]; then
hidden="yes";
shift;
fi;
local missing_action="die";
if [[ $1 == "--missing" ]]; then
missing_action=$2;
shift;
shift;
case ${missing_action} in
true | false | die)

;;
*)
die "unknown action '${missing_action}'"
;;
esac;
fi;
local opt=$1;
[[ ${opt:0:1} = "-" ]] && shift || opt="-a";
local PKG=$(best_version $1);
[[ -z ${PKG} ]] && die "Unable to resolve $1 to an installed package";
shift;
local USEFILE=${EROOT}/var/db/pkg/${PKG}/USE;
local IUSEFILE=${EROOT}/var/db/pkg/${PKG}/IUSE;
if [[ ! -e ${USEFILE} ]] || [[ ! -e ${IUSEFILE} && ${hidden} == "no" ]]; then
case ${missing_action} in
true)
return 0
;;
false)
return 1
;;
die)
die "Unable to determine what USE flags $PKG was built with"
;;
esac;
fi;
if [[ ${hidden} == "no" ]]; then
local IUSE_BUILT=($(<"${IUSEFILE}"));
local expand;
for expand in $(echo ${USE_EXPAND} | tr '[:upper:]' '[:lower:]');
do
if [[ $1 == ${expand}_* ]]; then
expand="";
break;
fi;
done;
if [[ -n ${expand} ]]; then
if ! has $1 ${IUSE_BUILT[@]#[-+]}; then
case ${missing_action} in
true)
return 0
;;
false)
return 1
;;
die)
die "$PKG does not actually support the $1 USE flag!"
;;
esac;
fi;
fi;
fi;
local USE_BUILT=$(<${USEFILE});
while [[ $# -gt 0 ]]; do
if [[ ${opt} = "-o" ]]; then
has $1 ${USE_BUILT} && return 0;
else
has $1 ${USE_BUILT} || return 1;
fi;
shift;
done;
[[ ${opt} = "-a" ]]
}
check_license ()
{
die "you no longer need this as portage supports ACCEPT_LICENSE itself"
}
check_rebuild ()
{
if has_version "<dev-lang/perl-${SHORT_PV}"; then
echo "";
ewarn "UPDATE THE PERL MODULES:";
ewarn "After updating dev-lang/perl you must reinstall";
ewarn "the installed perl modules.";
ewarn "Use: perl-cleaner --all";
else
if has_version dev-lang/perl; then
if ( use ithreads && ! has_version dev-lang/perl[ithreads] ) || ( ! use ithreads && has_version dev-lang/perl[ithreads] ) || ( use debug && ! has_version dev-lang/perl[debug] ) || ( ! use debug && has_version dev-lang/perl[debug] ); then
echo "";
ewarn "TOGGLED USE-FLAGS WARNING:";
ewarn "You changed one of the use-flags ithreads or debug.";
ewarn "You must rebuild all perl-modules installed.";
ewarn "Use: perl-cleaner --modules ; perl-cleaner --force --libperl";
fi;
fi;
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 ""
}
doicon ()
{
_iconins ${FUNCNAME} "$@"
}
domenu ()
{
( local i j ret=0;
insinto /usr/share/applications;
for i in "$@";
do
if [[ -f ${i} ]]; then
doins "${i}";
((ret+=$?));
else
if [[ -d ${i} ]]; then
for j in "${i}"/*.desktop;
do
doins "${j}";
((ret+=$?));
done;
else
((++ret));
fi;
fi;
done;
exit ${ret} )
}
dual_scripts ()
{
src_remove_dual perl-core/Archive-Tar 1.820.0 ptar ptardiff ptargrep;
src_remove_dual perl-core/Digest-SHA 5.710.0 shasum;
src_remove_dual perl-core/CPAN 1.980.0 cpan;
src_remove_dual perl-core/CPANPLUS 0.912.100 cpanp cpan2dist;
src_remove_dual_file perl-core/CPANPLUS 0.912.100 /usr/bin/cpanp-run-perl;
src_remove_dual perl-core/Encode 2.440.0 enc2xs piconv;
src_remove_dual perl-core/ExtUtils-MakeMaker 6.630.200_rc instmodsh;
src_remove_dual perl-core/ExtUtils-ParseXS 3.160.0 xsubpp;
src_remove_dual perl-core/IO-Compress 2.48.0 zipdetails;
src_remove_dual perl-core/JSON-PP 2.272.0 json_pp;
src_remove_dual perl-core/Module-Build 0.390.100_rc config_data;
src_remove_dual perl-core/Module-CoreList 2.840.0 corelist;
src_remove_dual perl-core/PodParser 1.510.0 pod2usage podchecker podselect;
src_remove_dual perl-core/Pod-Perldoc 1.170.0 perldoc;
src_remove_dual perl-core/Test-Harness 3.230.0 prove;
src_remove_dual perl-core/podlators 2.4.0 pod2man pod2text;
src_remove_dual_man perl-core/podlators 2.4.0 /usr/share/man/man1/perlpodstyle.1
}
ebeep ()
{
ewarn "QA Notice: ebeep is not defined in EAPI=${EAPI}, please file a bug at http://bugs.gentoo.org"
}
eblit-include ()
{
local skipable=false;
[[ $1 == "--skip" ]] && skipable=true && shift;
[[ $1 == pkg_* ]] && skipable=true;
local e v func=$1 ver=$2;
[[ -z ${func} ]] && die "Usage: eblit-include <function> [version]";
for v in ${ver:+-}${ver} -${PVR} -${PV} "";
do
e="${FILESDIR}/eblits/${func}${v}.eblit";
if [[ -e ${e} ]]; then
. "${e}";
return 0;
fi;
done;
${skipable} && return 0;
die "Could not locate requested eblit '${func}' in ${FILESDIR}/eblits/"
}
eblit-perl-pkg_postinst ()
{
dual_scripts;
if [[ "${ROOT}" = "/" ]]; then
local INC DIR file;
INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${SHORT_PV}'|etc|local|perl$/; print "$line\n" }');
einfo "Removing old .ph files";
for DIR in ${INC};
do
if [[ -d "${DIR}" ]]; then
for file in $(find "${DIR}" -name "*.ph" -type f );
do
rm -f "${file}";
einfo "<< ${file}";
done;
fi;
done;
for DIR in ${INC};
do
if [[ -d "${DIR}" ]]; then
find "${DIR}" -depth -type d -print0 | xargs -0 -r rmdir &>/dev/null;
fi;
done;
einfo "Converting C header files to the corresponding Perl format (ignore any error)";
pushd /usr/include > /dev/null;
h2ph -Q -a -d "${EPREFIX}"${ARCH_LIB} asm/termios.h syscall.h syslimits.h syslog.h sys/ioctl.h sys/socket.h sys/time.h wait.h sysexits.h;
popd > /dev/null;
fi
}
eblit-perl-pkg_postrm ()
{
dual_scripts
}
eblit-perl-pkg_setup ()
{
case ${CHOST} in
*-freebsd*)
osname="freebsd"
;;
*-dragonfly*)
osname="dragonfly"
;;
*-netbsd*)
osname="netbsd"
;;
*-openbsd*)
osname="openbsd"
;;
*-darwin*)
osname="darwin"
;;
*-interix*)
osname="interix"
;;
*-aix*)
osname="aix"
;;
*)
osname="linux"
;;
esac;
myarch="${CHOST%%-*}-${osname}";
if use debug; then
myarch+="-debug";
fi;
if use ithreads; then
mythreading="-multi";
myarch+="-thread";
fi;
LIBPERL="libperl$(get_libname ${MY_PV} )";
PRIV_LIB="/usr/$(get_libdir)/perl5/${MY_PV}";
ARCH_LIB="/usr/$(get_libdir)/perl5/${MY_PV}/${myarch}${mythreading}";
SITE_LIB="/usr/local/$(get_libdir)/perl5/${MY_PV}";
SITE_ARCH="/usr/local/$(get_libdir)/perl5/${MY_PV}/${myarch}${mythreading}";
VENDOR_LIB="/usr/$(get_libdir)/perl5/vendor_perl/${MY_PV}";
VENDOR_ARCH="/usr/$(get_libdir)/perl5/vendor_perl/${MY_PV}/${myarch}${mythreading}";
if use ithreads; then
echo "";
ewarn "THREADS WARNING:";
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. ";
fi;
check_rebuild;
dual_scripts
}
eblit-perl-src_configure ()
{
declare -a myconf;
export LC_ALL="C";
[[ ${COLUMNS:-1} -ge 1 ]] || unset COLUMNS;
use ppc && replace-flags -O? -O1;
use elibc_uclibc || replace-flags "-Os" "-O2";
filter-flags "-malign-double";
use ppc && filter-flags "-mpowerpc-gpopt";
filter-flags "-fsched2-use-superblocks";
use sparc && myconf -Ud_longdbl;
export BUILD_BZIP2=0;
export BZIP2_INCLUDE=${EPREFIX}/usr/include;
export BZIP2_LIB=${EPREFIX}/usr/$(get_libdir);
export BUILD_ZLIB=False;
export ZLIB_INCLUDE=${EPREFIX}/usr/include;
export ZLIB_LIB=${EPREFIX}/usr/$(get_libdir);
myndbm='U';
mygdbm='U';
mydb='U';
if use gdbm; then
mygdbm='D';
myndbm='D';
fi;
if use berkdb; then
mydb='D';
has_version '=sys-libs/db-1*' && myndbm='D';
fi;
myconf "-${myndbm}i_ndbm" "-${mygdbm}i_gdbm" "-${mydb}i_db";
if use alpha && [[ "$(tc-getCC)" = "ccc" ]]; then
ewarn "Perl will not be built with berkdb support, use gcc if you needed it...";
myconf -Ui_db -Ui_ndbm;
fi;
use ithreads && myconf -Dusethreads;
if use debug; then
append-cflags "-g";
myconf -DDEBUGGING;
else
if [[ ${CFLAGS} == *-g* ]]; then
myconf -DDEBUGGING=-g;
else
myconf -DDEBUGGING=none;
fi;
fi;
if [[ -n ${PERL_OLDVERSEN} ]]; then
local inclist=$(for v in ${PERL_OLDVERSEN}; do echo -n "${v}/${myarch}${mythreading} ${v} "; done );
myconf -Dinc_version_list="${inclist}";
fi;
[[ ${ELIBC} == "FreeBSD" ]] && myconf "-Dlibc=/usr/$(get_libdir)/libc.a";
[[ ${CHOST} == *-darwin* ]] && myconf "-Dld=$(tc-getCC)";
if use prefix; then
export libscheck="
( echo 'main(){}' > '${T}'/conftest.c &&
$(tc-getCC) -o '${T}'/conftest '${T}'/conftest.c -l\$thislib >/dev/null 2>/dev/null
) || xxx=/dev/null";
local paths="/lib/*-linux-gnu /usr/lib/*-linux-gnu /lib64 /lib/64 /usr/lib64 /usr/lib/64 /lib32 /usr/lib32 /lib /usr/lib";
myconf "-Dlibpth=${EPREFIX}/$(get_libdir) ${EPREFIX}/usr/$(get_libdir) ${paths}";
else
if [[ $(get_libdir) != "lib" ]]; then
myconf "-Dlibpth=/usr/local/$(get_libdir) /$(get_libdir) /usr/$(get_libdir)";
fi;
fi;
disabled_extensions="ODBM_File";
if ! use gdbm; then
disabled_extensions="${disabled_extensions} GDBM_File NDBM_File";
fi;
myconf -Dnoextensions="${disabled_extensions}";
sh Configure -des -Duseshrplib -Darchname="${myarch}" -Dcc="$(tc-getCC)" -Doptimize="${CFLAGS}" -Dldflags="${LDFLAGS}" -Dprefix="${EPREFIX}"'/usr' -Dinstallprefix="${EPREFIX}"'/usr' -Dsiteprefix="${EPREFIX}"'/usr/local' -Dvendorprefix="${EPREFIX}"'/usr' -Dscriptdir="${EPREFIX}"'/usr/bin' -Dprivlib="${EPREFIX}${PRIV_LIB}" -Darchlib="${EPREFIX}${ARCH_LIB}" -Dsitelib="${EPREFIX}${SITE_LIB}" -Dsitearch="${EPREFIX}${SITE_ARCH}" -Dvendorlib="${EPREFIX}${VENDOR_LIB}" -Dvendorarch="${EPREFIX}${VENDOR_ARCH}" -Dman1dir="${EPREFIX}"/usr/share/man/man1 -Dman3dir="${EPREFIX}"/usr/share/man/man3 -Dsiteman1dir="${EPREFIX}"/usr/local/man/man1 -Dsiteman3dir="${EPREFIX}"/usr/local/man/man3 -Dvendorman1dir="${EPREFIX}"/usr/share/man/man1 -Dvendorman3dir="${EPREFIX}"/usr/share/man/man3 -Dman1ext='1' -Dman3ext='3pm' -Dlibperl="${LIBPERL}" -Dlocincpth="${EPREFIX}"'/usr/include ' -Dglibpth="${EPREFIX}/$(get_libdir) ${EPREFIX}/usr/$(get_libdir)"' ' -Duselargefiles -Dd_semctl_semun -Dcf_by='Gentoo' -Dmyhostname='localhost' -Dperladmin='root@localhost' -Dinstallusrbinperl='n' -Ud_csh -Uusenm "${myconf[@]}" || die "Unable to configure"
}
eblit-perl-src_prepare ()
{
local patch;
EPATCH_OPTS+=" -p1";
einfo "Applying patches from ${MY_P}-${PATCH_VER} ...";
while read patch; do
EPATCH_SINGLE_MSG=" ${patch} ...";
epatch "${WORKDIR}"/patches/${patch};
done < "${WORKDIR}"/patches/series;
src_prepare_update_patchlevel_h;
if ! tc-is-static-only; then
ln -s ${LIBPERL} libperl$(get_libname ${SHORT_PV}) || die;
ln -s ${LIBPERL} libperl$(get_libname ) || die;
fi
}
eblit-run ()
{
eblit-include --skip common "${*:2}";
eblit-include "$@";
eblit-run-maybe eblit-$1-pre;
eblit-${PN}-$1;
eblit-run-maybe eblit-$1-post
}
eblit-run-maybe ()
{
[[ $(type -t "$@") == "function" ]] && "$@"
}
econf_build ()
{
tc-env_build econf --build=${CBUILD:-${CHOST}} "$@"
}
ecvs_clean ()
{
[[ -z $* ]] && set -- .;
find "$@" -type d -name 'CVS' -prune -print0 | xargs -0 rm -rf;
find "$@" -type f -name '.cvs*' -print0 | xargs -0 rm -rf
}
edos2unix ()
{
[[ $# -eq 0 ]] && return 0;
sed -i 's/\r$//' -- "$@" || die
}
einstalldocs ()
{
debug-print-function ${FUNCNAME} "${@}";
local dodoc_opts=-r;
has ${EAPI} 0 1 2 3 && dodoc_opts=;
if ! declare -p DOCS &>/dev/null; then
local d;
for d in README* ChangeLog AUTHORS NEWS TODO CHANGES THANKS BUGS FAQ CREDITS CHANGELOG;
do
if [[ -s ${d} ]]; then
dodoc "${d}" || die;
fi;
done;
else
if [[ $(declare -p DOCS) == "declare -a"* ]]; then
if [[ -n ${DOCS[@]} ]]; then
dodoc ${dodoc_opts} "${DOCS[@]}" || die;
fi;
else
if [[ -n ${DOCS} ]]; then
dodoc ${dodoc_opts} ${DOCS} || die;
fi;
fi;
fi;
if [[ $(declare -p HTML_DOCS 2>/dev/null) == "declare -a"* ]]; then
if [[ -n ${HTML_DOCS[@]} ]]; then
dohtml -r "${HTML_DOCS[@]}" || die;
fi;
else
if [[ -n ${HTML_DOCS} ]]; then
dohtml -r ${HTML_DOCS} || die;
fi;
fi;
return 0
}
emktemp ()
{
local exe="touch";
[[ $1 == -d ]] && exe="mkdir" && shift;
local topdir=$1;
if [[ -z ${topdir} ]]; then
[[ -z ${T} ]] && topdir="/tmp" || topdir=${T};
fi;
if ! type -P mktemp > /dev/null; then
local tmp=/;
while [[ -e ${tmp} ]]; do
tmp=${topdir}/tmp.${RANDOM}.${RANDOM}.${RANDOM};
done;
${exe} "${tmp}" || ${exe} -p "${tmp}";
echo "${tmp}";
else
if [[ ${exe} == "touch" ]]; then
TMPDIR="${topdir}" mktemp -t tmp.XXXXXXXXXX;
else
TMPDIR="${topdir}" mktemp -dt tmp.XXXXXXXXXX;
fi;
fi
}
epatch ()
{
function _epatch_draw_line ()
{
[[ -z $1 ]] && set "$(printf "%65s" '')";
echo "${1//?/=}"
};
unset P4CONFIG P4PORT P4USER;
local EPATCH_OPTS=(${EPATCH_OPTS[*]});
while [[ $# -gt 0 ]]; do
case $1 in
-*)
EPATCH_OPTS+=("$1")
;;
*)
break
;;
esac;
shift;
done;
if [[ $# -gt 1 ]]; then
local m;
for m in "$@";
do
epatch "${m}";
done;
return 0;
fi;
local SINGLE_PATCH="no";
[[ $# -eq 0 ]] && set -- "${EPATCH_SOURCE}";
if [[ -f $1 ]]; then
SINGLE_PATCH="yes";
set -- "$1";
local EPATCH_SUFFIX=$1;
else
if [[ -d $1 ]]; then
evar_push_set LC_COLLATE C;
set -- "$1"/*${EPATCH_SUFFIX:+."${EPATCH_SUFFIX}"};
evar_pop;
else
if [[ -f ${EPATCH_SOURCE}/$1 ]]; then
epatch "${EPATCH_SOURCE}/$1";
return $?;
else
[[ $# -ne 0 ]] && EPATCH_SOURCE=$1;
echo;
eerror "Cannot find \$EPATCH_SOURCE! Value for \$EPATCH_SOURCE is:";
eerror;
eerror " ${EPATCH_SOURCE}";
eerror " ( ${EPATCH_SOURCE##*/} )";
echo;
die "Cannot find \$EPATCH_SOURCE!";
fi;
fi;
fi;
EPATCH_OPTS="${EPATCH_COMMON_OPTS} ${EPATCH_OPTS[*]}";
local PIPE_CMD;
case ${EPATCH_SUFFIX##*\.} in
xz)
PIPE_CMD="xz -dc"
;;
lzma)
PIPE_CMD="lzma -dc"
;;
bz2)
PIPE_CMD="bzip2 -dc"
;;
gz | Z | z)
PIPE_CMD="gzip -dc"
;;
ZIP | zip)
PIPE_CMD="unzip -p"
;;
*)

;;
esac;
[[ ${SINGLE_PATCH} == "no" ]] && einfo "${EPATCH_MULTI_MSG}";
local x;
for x in "$@";
do
[[ ! -f ${x} ]] && continue;
local patchname=${x##*/};
local a=${patchname#*_};
a=${a%%_*};
if ! [[ ${SINGLE_PATCH} == "yes" || ${EPATCH_FORCE} == "yes" || ${a} == all || ${a} == ${ARCH} ]]; then
continue;
fi;
if [[ -n ${EPATCH_EXCLUDE}${EPATCH_USER_EXCLUDE} ]]; then
eshopts_push -o noglob;
local ex;
for ex in ${EPATCH_EXCLUDE};
do
if [[ ${patchname} == ${ex} ]]; then
einfo " Skipping ${patchname} due to EPATCH_EXCLUDE ...";
eshopts_pop;
continue 2;
fi;
done;
for ex in ${EPATCH_USER_EXCLUDE};
do
if [[ ${patchname} == ${ex} ]]; then
einfo " Skipping ${patchname} due to EPATCH_USER_EXCLUDE ...";
eshopts_pop;
continue 2;
fi;
done;
eshopts_pop;
fi;
if [[ ${SINGLE_PATCH} == "yes" ]]; then
if [[ -n ${EPATCH_SINGLE_MSG} ]]; then
einfo "${EPATCH_SINGLE_MSG}";
else
einfo "Applying ${patchname} ...";
fi;
else
einfo " ${patchname} ...";
fi;
local STDERR_TARGET="${T}/${patchname}.out";
if [[ -e ${STDERR_TARGET} ]]; then
STDERR_TARGET="${T}/${patchname}-$$.out";
fi;
printf "***** %s *****\nPWD: %s\n\n" "${patchname}" "${PWD}" > "${STDERR_TARGET}";
local count=0;
local PATCH_TARGET;
if [[ -n ${PIPE_CMD} ]]; then
PATCH_TARGET="${T}/$$.patch";
echo "PIPE_COMMAND: ${PIPE_CMD} ${x} > ${PATCH_TARGET}" >> "${STDERR_TARGET}";
if ! ( ${PIPE_CMD} "${x}" > "${PATCH_TARGET}" ) >> "${STDERR_TARGET}" 2>&1; then
echo;
eerror "Could not extract patch!";
count=5;
break;
fi;
else
PATCH_TARGET=${x};
fi;
local abs_paths=$(egrep -n '^[-+]{3} /' "${PATCH_TARGET}" | awk '$2 != "/dev/null" { print }');
if [[ -n ${abs_paths} ]]; then
count=1;
printf "NOTE: skipping -p0 due to absolute paths in patch:\n%s\n" "${abs_paths}" >> "${STDERR_TARGET}";
fi;
local rel_paths=$(egrep -n '^[-+]{3} [^ ]*[.][.]/' "${PATCH_TARGET}");
if [[ -n ${rel_paths} ]]; then
echo;
eerror "Rejected Patch: ${patchname} !";
eerror " ( ${PATCH_TARGET} )";
eerror;
eerror "Your patch uses relative paths '../':";
eerror "${rel_paths}";
echo;
die "you need to fix the relative paths in patch";
fi;
local patch_cmd;
local patch="patch";
eval $(alias patch 2>/dev/null | sed 's:^alias ::');
while [[ ${count} -lt 5 ]]; do
patch_cmd="${patch} -p${count} ${EPATCH_OPTS}";
( _epatch_draw_line "***** ${patchname} *****";
echo;
echo "PATCH COMMAND: ${patch_cmd} < '${PATCH_TARGET}'";
echo;
_epatch_draw_line "***** ${patchname} *****";
${patch_cmd} --dry-run -f < "${PATCH_TARGET}" 2>&1;
ret=$?;
echo;
echo "patch program exited with status ${ret}";
exit ${ret} ) >> "${STDERR_TARGET}";
if [ $? -eq 0 ]; then
( _epatch_draw_line "***** ${patchname} *****";
echo;
echo "ACTUALLY APPLYING ${patchname} ...";
echo;
_epatch_draw_line "***** ${patchname} *****";
${patch_cmd} < "${PATCH_TARGET}" 2>&1;
ret=$?;
echo;
echo "patch program exited with status ${ret}";
exit ${ret} ) >> "${STDERR_TARGET}";
if [ $? -ne 0 ]; then
echo;
eerror "A dry-run of patch command succeeded, but actually";
eerror "applying the patch failed!";
count=5;
fi;
break;
fi;
: $(( count++ ));
done;
if [[ -n ${PIPE_CMD} ]]; then
rm -f "${PATCH_TARGET}";
fi;
if [[ ${count} -ge 5 ]]; then
echo;
eerror "Failed Patch: ${patchname} !";
eerror " ( ${PATCH_TARGET} )";
eerror;
eerror "Include in your bugreport the contents of:";
eerror;
eerror " ${STDERR_TARGET}";
echo;
die "Failed Patch: ${patchname}!";
fi;
rm -f "${STDERR_TARGET}";
cat >> "${T}/epatch.log" <<-EOF
PATCH: ${x}
CMD: ${patch_cmd}
PWD: ${PWD}

EOF

eend 0;
done;
[[ ${SINGLE_PATCH} == "no" ]] && einfo "Done with patching";
:
}
epatch_user ()
{
[[ $# -ne 0 ]] && die "epatch_user takes no options";
local applied="${T}/epatch_user.log";
[[ -e ${applied} ]] && return 2;
local EPATCH_SOURCE check base=${PORTAGE_CONFIGROOT%/}/etc/portage/patches;
for check in ${CATEGORY}/{${P}-${PR},${P},${PN}}{,:${SLOT}};
do
EPATCH_SOURCE=${base}/${CTARGET}/${check};
[[ -r ${EPATCH_SOURCE} ]] || EPATCH_SOURCE=${base}/${CHOST}/${check};
[[ -r ${EPATCH_SOURCE} ]] || EPATCH_SOURCE=${base}/${check};
if [[ -d ${EPATCH_SOURCE} ]]; then
EPATCH_SOURCE=${EPATCH_SOURCE} EPATCH_SUFFIX="patch" EPATCH_FORCE="yes" EPATCH_MULTI_MSG="Applying user patches from ${EPATCH_SOURCE} ..." epatch;
echo "${EPATCH_SOURCE}" > "${applied}";
return 0;
fi;
done;
echo "none" > "${applied}";
return 1
}
epause ()
{
ewarn "QA Notice: epause is not defined in EAPI=${EAPI}, please file a bug at http://bugs.gentoo.org"
}
epunt_cxx ()
{
local dir=$1;
[[ -z ${dir} ]] && dir=${S};
ebegin "Removing useless C++ checks";
local f p any_found;
while IFS= read -r -d '' f; do
for p in "${PORTDIR}"/eclass/ELT-patches/nocxx/*.patch;
do
if patch --no-backup-if-mismatch -p1 "${f}" "${p}" > /dev/null; then
any_found=1;
break;
fi;
done;
done < <(find "${dir}" -name configure -print0);
if [[ -z ${any_found} ]]; then
eqawarn "epunt_cxx called unnecessarily (no C++ checks to punt).";
fi;
eend 0
}
eshopts_pop ()
{
local s;
estack_pop eshopts s || die "${FUNCNAME}: unbalanced push";
if [[ ${s} == "shopt -"* ]]; then
eval "${s}" || die "${FUNCNAME}: sanity: invalid shopt options: ${s}";
else
set +$- || die "${FUNCNAME}: sanity: invalid shell settings: $-";
set -${s} || die "${FUNCNAME}: sanity: unable to restore saved shell set

[charles17]

I recall what helped was several times looping through "emerge --depclean" "perl-cleaner --reallyall"

[Snaketails]

Sorry, they didn't work, but I did find something interesting when I opened config.h

[Snaketails]

after changing the above lines ...

[Snaketails]

Looking at Perl, and searching for the required lines, I find the following (emerge perl, <ctrl-C> after patching and before `sh Configure`

cd /var/tmp/portage/dev-lang/perl-5.18.2-r2

[Snaketails]

now running perl-cleaner... I now get a unrelated blocker

[Snaketails]

Interesting..

[code]
/*#define HAS_SOCKADDR_SA_LEN / **/
[code]

If anyone knows C, a comment is thus /* comment goes here */

there is a start of comment at the end of the line, but there is a added space character between the "/" and the "*" character, this means that the following lines are not in the comment field?