environment

environment (text/plain), 52.60 KB, created by Toralf Förster on 2020-02-21 20:55:53 UTC

declare -x ABI="amd64"
declare -x ABI_MIPS=""
declare -x ABI_PPC=""
declare -x ABI_RISCV=""
declare -x ABI_S390=""
declare -x ABI_X86="64"
declare -x ADA_TARGET=""
declare -x ALSA_CARDS=""
declare -x ANT_HOME="/usr/share/ant"
declare -x APACHE2_MODULES=""
declare -x APACHE2_MPMS=""
declare -x ARCH="amd64"
declare -- ARCH_LIB="/usr/lib64/perl5/5.30.1/x86_64-linux"
declare BDEPEND=""
declare -x BOOTSTRAP_USE="unicode internal-glib pkg-config split-usr python_targets_python3_6 python_targets_python2_7 multilib"
declare -x CALLIGRA_FEATURES=""
declare -x CAMERAS=""
declare -x CBUILD="x86_64-pc-linux-gnu"
declare -x CFLAGS="-O2 -pipe -march=native -fno-common -falign-functions=32:25:16"
declare -x CFLAGS_amd64="-m64"
declare -x CFLAGS_x32="-mx32"
declare -x CFLAGS_x86="-m32"
declare -x CG_COMPILER_EXE="/opt/bin/cgc"
declare -x CG_INC_PATH="/opt/nvidia-cg-toolkit/include"
declare -x CG_LIB_PATH="/opt/nvidia-cg-toolkit/lib64"
declare -x CHOST="x86_64-pc-linux-gnu"
declare -x CHOST_amd64="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=""
declare -x COMMON_FLAGS="-O2 -pipe -march=native -fno-common -falign-functions=32:25:16"
declare -x CPU_FLAGS_ARM=""
declare -x CPU_FLAGS_PPC=""
declare -x CPU_FLAGS_X86=""
declare -x CURL_SSL=""
declare -x CXXFLAGS="-O2 -pipe -march=native -fno-common -falign-functions=32:25:16"
declare -x DEFAULT_ABI="amd64"
declare -x DEFINED_PHASES=" compile configure install postinst prepare setup test"
declare DEPEND="dev-perl/Net-Netmask
		>=dev-perl/Danga-Socket-1.610.0
		>=dev-perl/Sys-Syscall-0.220.0
		>=dev-perl/Perlbal-1.790
		>=dev-perl/IO-AIO-4
		dev-perl/libwww-perl
		>=dev-perl/MogileFS-Client-1.170.0
		>=dev-perl/MogileFS-Utils-2.280.0
		dev-perl/Cache-Memcached
		dev-perl/DBI
		mysql? ( dev-perl/DBD-mysql )
		postgres? ( dev-perl/DBD-Pg )
		sqlite? ( dev-perl/DBD-SQLite ) dev-lang/perl"
declare DESCRIPTION="Server for the MogileFS distributed file system"
declare -x DESTTREE="/usr"
declare -x DIROPTIONS="-m0755"
declare -- DIST_A="MogileFS-Server-2.73.tar.gz"
declare -- DIST_AUTHOR="DORMANDO"
declare -- DIST_NAME="MogileFS-Server"
declare -- DIST_P="MogileFS-Server-2.73"
declare -- DIST_TEST="never verbose"
declare -- DIST_VERSION="2.73"
declare -x EAPI="6"
declare -x EGO_BUILD_FLAGS="-p 1"
declare -x ELIBC="glibc"
declare -x ENLIGHTENMENT_MODULES=""
declare -x ENV_UNSET="DBUS_SESSION_BUS_ADDRESS DISPLAY GOBIN PERL5LIB PERL5OPT PERLPREFIX PERL_CORE PERL_MB_OPT PERL_MM_OPT XAUTHORITY XDG_CACHE_HOME XDG_CONFIG_HOME XDG_DATA_HOME XDG_RUNTIME_DIR"
declare -- EPOCHREALTIME="1582317576.440775"
declare -- EPOCHSECONDS="1582317576"
declare -x EXEOPTIONS="-m0755"
declare -x FCFLAGS="-O2 -pipe -march=native -fno-common -falign-functions=32:25:16"
declare -x FETCHCOMMAND_SSH="bash -c \"x=\\\${2#ssh://} ; host=\\\${x%%/*} ; port=\\\${host##*:} ; host=\\\${host%:*} ; [[ \\\${host} = \\\${port} ]] && port= ; exec rsync --rsh=\\\"ssh \\\${port:+-p\\\${port}} \\\${3}\\\" -avP \\\"\\\${host}:/\\\${x#*/}\\\" \\\"\\\$1\\\"\" rsync \"\${DISTDIR}/\${FILE}\" \"\${URI}\" \"\${PORTAGE_SSH_OPTS}\""
declare -x FFLAGS="-O2 -pipe -march=native -fno-common -falign-functions=32:25:16"
declare -x FFTOOLS=""
declare -x FLTK_DOCDIR="/usr/share/doc/fltk-1.3.5-r4/html"
declare -x GCC_COLORS=""
declare -x GCC_SPECS=""
declare -x GO19CONCURRENTCOMPILATION="0"
declare -x GOMAXPROCS="1"
declare -x GPSD_PROTOCOLS=""
declare -x GREP_COLORS="never"
declare -x GRUB_PLATFORMS=""
declare -x GSETTINGS_BACKEND="dconf"
declare HOMEPAGE="http://www.danga.com/mogilefs/ https://metacpan.org/release/MogileFS-Server"
declare -x INHERITED=" user-info user multiprocessing perl-functions perl-module"
declare -x INPUT_DEVICES=""
declare -x INSDESTTREE=""
declare -x INSOPTIONS="-m0644"
declare IUSE="mysql +sqlite test postgres "
declare -x IUSE_EFFECTIVE="abi_x86_64 alpha amd64 amd64-fbsd amd64-linux arm arm64 elibc_AIX elibc_Cygwin elibc_Darwin elibc_DragonFly elibc_FreeBSD elibc_HPUX elibc_Interix elibc_NetBSD elibc_OpenBSD elibc_SunOS elibc_Winnt elibc_bionic elibc_glibc elibc_mingw elibc_mintlib elibc_musl elibc_uclibc hppa ia64 kernel_AIX kernel_Darwin kernel_FreeBSD kernel_HPUX kernel_NetBSD kernel_OpenBSD kernel_SunOS kernel_Winnt kernel_freemint kernel_linux m68k m68k-mint mips mysql postgres ppc ppc-aix ppc-macos ppc64 ppc64-linux prefix prefix-guest prefix-stack riscv s390 sh sparc sparc-solaris sparc64-solaris sqlite test userland_BSD userland_GNU x64-cygwin x64-macos x64-solaris x86 x86-cygwin x86-fbsd x86-linux x86-macos x86-solaris x86-winnt"
declare -x IUSE_IMPLICIT="abi_x86_64 prefix prefix-guest prefix-stack"
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 KEYWORDS="~amd64 ~ppc ~x86"
declare -x L10N=""
declare -x LANG="en_US.UTF-8"
declare -x LCD_DEVICES=""
declare -x LC_COLLATE="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_x32="-m elf32_x86_64"
declare -x LDFLAGS_x86="-m elf_i386"
declare -x LIBDIR_amd64="lib64"
declare -x LIBDIR_x32="libx32"
declare -x LIBDIR_x86="lib"
declare -x LIBOPTIONS="-m0644"
declare -x LIBREOFFICE_EXTENSIONS=""
declare -x LICENSE="|| ( Artistic GPL-2 )"
declare -x LIRC_DEVICES=""
declare -x LLVM_TARGETS=""
declare -x MAKEOPTS="-j1"
declare -x MANPAGER="manpager"
declare -- MOGILE_USER="mogile"
declare -x MONKEYD_PLUGINS=""
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|llvm)"
declare -x NGINX_MODULES_HTTP=""
declare -x NGINX_MODULES_MAIL=""
declare -x NGINX_MODULES_STREAM=""
declare -x NINJAFLAGS="-j1"
declare -x OFED_DRIVERS=""
declare -x OFFICE_IMPLEMENTATION=""
declare -x OMNIORB_CONFIG="/etc/omniorb/omniORB.cfg"
declare -x OMP_DYNAMIC="FALSE"
declare -x OMP_NESTED="FALSE"
declare -x OMP_NUM_THREADS="1"
declare -x OPENGL_PROFILE="xorg-x11"
declare -x OPENMPI_FABRICS=""
declare -x OPENMPI_OFED_FEATURES=""
declare -x OPENMPI_RM=""
declare -a PATCHES=([0]="/var/tmp/portage/dev-perl/MogileFS-Server-2.730.0/files/MogileFS-Server-2.720.0-gentoo-init-conf.patch")
declare -x PATH="/usr/lib/portage/python3.6/ebuild-helpers/xattr:/usr/lib/portage/python3.6/ebuild-helpers:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/lib/llvm/9/bin:/opt/nvidia-cg-toolkit/bin"
declare -x PAX_MARKINGS="none"
declare PDEPEND=""
declare -- PERL_EXPF="src_prepare src_configure src_compile src_test src_install"
declare -x PERL_EXTUTILS_AUTOINSTALL="--skipdeps"
declare -x PERL_MM_USE_DEFAULT="1"
declare -- PERL_VERSION="5.30.1"
declare -x PHP_TARGETS=""
declare -x PKG_CONFIG_PATH="/usr/lib64/pkgconfig"
declare -x PORTAGE_COMPRESSION_COMMAND="bzip2"
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/MogileFS-Server-2.730.0/html")
declare -a PORTAGE_DOSTRIP=([0]="/")
declare -a PORTAGE_DOSTRIP_SKIP=()
declare -x PORT_LOGDIR="/var/log/portage"
declare -x POSTGRES_TARGETS=""
declare -- PREFER_BUILDPL="yes"
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 PYTHONDONTWRITEBYTECODE="1"
declare -x PYTHONPATH="/usr/lib/entropy/lib"
declare -x PYTHON_SINGLE_TARGET=""
declare -x PYTHON_TARGETS=""
declare -x QEMU_SOFTMMU_TARGETS=""
declare -x QEMU_USER_TARGETS=""
declare RDEPEND="dev-perl/Net-Netmask
		>=dev-perl/Danga-Socket-1.610.0
		>=dev-perl/Sys-Syscall-0.220.0
		>=dev-perl/Perlbal-1.790
		>=dev-perl/IO-AIO-4
		dev-perl/libwww-perl
		>=dev-perl/MogileFS-Client-1.170.0
		>=dev-perl/MogileFS-Utils-2.280.0
		dev-perl/Cache-Memcached
		dev-perl/DBI
		mysql? ( dev-perl/DBD-mysql )
		postgres? ( dev-perl/DBD-Pg )
		sqlite? ( dev-perl/DBD-SQLite ) dev-lang/perl:="
declare REPOSITORY
declare REQUIRED_USE="test? ( sqlite ) || ( mysql sqlite postgres ) "
declare -x RESTRICT="test"
declare -x RESUMECOMMAND_SSH="bash -c \"x=\\\${2#ssh://} ; host=\\\${x%%/*} ; port=\\\${host##*:} ; host=\\\${host%:*} ; [[ \\\${host} = \\\${port} ]] && port= ; exec rsync --rsh=\\\"ssh \\\${port:+-p\\\${port}} \\\${3}\\\" -avP \\\"\\\${host}:/\\\${x#*/}\\\" \\\"\\\$1\\\"\" rsync \"\${DISTDIR}/\${FILE}\" \"\${URI}\" \"\${PORTAGE_SSH_OPTS}\""
declare -x ROS_MESSAGES=""
declare -x RUBY_TARGETS=""
declare -x RUSTFLAGS="-C codegen-units=1"
declare -x RUST_TEST_TASKS="1"
declare -x RUST_TEST_THREADS="1"
declare -x S="/var/tmp/portage/dev-perl/MogileFS-Server-2.730.0/work/MogileFS-Server-2.73"
declare -x SANDBOX_DEBUG="0"
declare -x SANDBOX_DENY=""
declare -x SANDBOX_PREDICT="/var/tmp/portage/dev-perl/MogileFS-Server-2.730.0/homedir:/dev/crypto:/var/cache/man:/proc/self/coredump_filter:/var/cache/fontconfig"
declare -x SANDBOX_READ="/:/var/tmp/portage"
declare -x SANDBOX_VERBOSE="1"
declare -x SANDBOX_WRITE=":/dev/console:/dev/fd:/dev/full:/dev/null:/dev/ptmx:/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/portage:/var/tmp/portage/dev-perl/MogileFS-Server-2.730.0/homedir/.bash_history"
declare -x SANE_BACKENDS=""
declare -x SBCL_HOME="/usr/lib64/sbcl"
declare -x SBCL_SOURCE_ROOT="/usr/lib64/sbcl/src"
declare -x SHELL="/bin/bash"
declare -- SITE_ARCH="/usr/local/lib64/perl5/5.30.1/x86_64-linux"
declare -- SITE_LIB="/usr/local/lib64/perl5/5.30.1"
declare -x SLOT="0"
declare -- SRC_PREP="yes"
declare SRC_URI="mirror://cpan/authors/id/D/DO/DORMANDO/MogileFS-Server-2.73.tar.gz"
declare -x SYMLINK_LIB="no"
declare -x TERMINFO="/etc/terminfo"
declare -x TWISTED_DISABLE_WRITING_OF_PLUGIN_CACHE="1"
declare -x USE="abi_x86_64 amd64 elibc_glibc kernel_linux sqlite userland_GNU"
declare -x USERLAND="GNU"
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 arm64 hppa ia64 m68k m68k-mint mips ppc ppc64 ppc64-linux ppc-aix ppc-macos riscv s390 sh sparc sparc64-solaris sparc-solaris x64-cygwin x64-macos x64-solaris x86 x86-cygwin x86-fbsd x86-linux x86-macos x86-solaris x86-winnt"
declare -x USE_EXPAND_VALUES_ELIBC="AIX bionic Cygwin Darwin DragonFly FreeBSD glibc HPUX Interix mingw mintlib musl NetBSD OpenBSD SunOS uclibc Winnt"
declare -x USE_EXPAND_VALUES_KERNEL="AIX Darwin FreeBSD freemint HPUX linux NetBSD OpenBSD SunOS Winnt"
declare -x USE_EXPAND_VALUES_USERLAND="BSD GNU"
declare -x UWSGI_PLUGINS=""
declare -- VENDOR_ARCH="/usr/lib64/perl5/vendor_perl/5.30.1/x86_64-linux"
declare -- VENDOR_LIB="/usr/lib64/perl5/vendor_perl/5.30.1"
declare -x VIDEO_CARDS=""
declare -x VOICEMAIL_STORAGE=""
declare -x XDG_CONFIG_DIRS="/etc/xdg"
declare -x XDG_DATA_DIRS="/usr/local/share:/usr/share"
declare -x XFCE_PLUGINS=""
declare -x XTABLES_ADDONS=""
declare -x _E_DOCDESTTREE_=""
declare -x _E_EXEDESTTREE_=""
declare -- _MULTIPROCESSING_ECLASS="1"
declare -- _USER_ECLASS="1"
declare -- _USER_INFO_ECLASS="1"
declare -- i="PERLPREFIX"
declare -- perlinfo_done="true"
declare -- pm_echovar=""
__eapi6_src_install () 
{ 
    if [[ -f Makefile || -f GNUmakefile || -f makefile ]]; then
        emake DESTDIR="${D}" install;
    fi;
    einstalldocs
}
__eapi6_src_prepare () 
{ 
    if ___is_indexed_array_var PATCHES; then
        [[ ${#PATCHES[@]} -gt 0 ]] && eapply "${PATCHES[@]}";
    else
        if [[ -n ${PATCHES} ]]; then
            eapply ${PATCHES};
        fi;
    fi;
    eapply_user
}
_assert_pkg_ebuild_phase () 
{ 
    case ${EBUILD_PHASE} in 
        setup | preinst | postinst | prerm | postrm)

        ;;
        *)
            eerror "'$1()' called from '${EBUILD_PHASE}' phase which is not OK:";
            eerror "You may only call from pkg_{setup,{pre,post}{inst,rm}} functions.";
            eerror "Package fails at QA and at life.  Please file a bug.";
            die "Bad package!  $1 is only for use in some pkg_* functions!"
        ;;
    esac
}
_eapply_patch () 
{ 
    local f=${1};
    local prefix=${2};
    ebegin "${prefix:-Applying }${f##*/}";
    local all_opts=(-p1 -f -g0 --no-backup-if-mismatch "${patch_options[@]}");
    if ${patch_cmd} "${all_opts[@]}" --dry-run -s -F0 < "${f}" &> /dev/null; then
        all_opts+=(-s -F0);
    fi;
    ${patch_cmd} "${all_opts[@]}" < "${f}";
    failed=${?};
    if ! eend "${failed}"; then
        __helpers_die "patch -p1 ${patch_options[*]} failed with ${f}";
    fi
}
eapply () 
{ 
    local failed patch_cmd=patch;
    local -x LC_COLLATE=POSIX;
    type -P gpatch > /dev/null && patch_cmd=gpatch;
    function _eapply_patch () 
    { 
        local f=${1};
        local prefix=${2};
        ebegin "${prefix:-Applying }${f##*/}";
        local all_opts=(-p1 -f -g0 --no-backup-if-mismatch "${patch_options[@]}");
        if ${patch_cmd} "${all_opts[@]}" --dry-run -s -F0 < "${f}" &> /dev/null; then
            all_opts+=(-s -F0);
        fi;
        ${patch_cmd} "${all_opts[@]}" < "${f}";
        failed=${?};
        if ! eend "${failed}"; then
            __helpers_die "patch -p1 ${patch_options[*]} failed with ${f}";
        fi
    };
    local patch_options=() files=();
    local i found_doublehyphen;
    for ((i = 1; i <= ${#@}; ++i ))
    do
        if [[ ${@:i:1} == -- ]]; then
            patch_options=("${@:1:i-1}");
            files=("${@:i+1}");
            found_doublehyphen=1;
            break;
        fi;
    done;
    if [[ -z ${found_doublehyphen} ]]; then
        for ((i = 1; i <= ${#@}; ++i ))
        do
            if [[ ${@:i:1} != -* ]]; then
                patch_options=("${@:1:i-1}");
                files=("${@:i}");
                break;
            fi;
        done;
        for i in "${files[@]}";
        do
            if [[ ${i} == -* ]]; then
                die "eapply: all options must be passed before non-options";
            fi;
        done;
    fi;
    if [[ ${#files[@]} -eq 0 ]]; then
        die "eapply: no files specified";
    fi;
    local f;
    for f in "${files[@]}";
    do
        if [[ -d ${f} ]]; then
            function _eapply_get_files () 
            { 
                local LC_ALL=POSIX;
                local prev_shopt=$(shopt -p nullglob);
                shopt -s nullglob;
                local f;
                for f in "${1}"/*;
                do
                    if [[ ${f} == *.diff || ${f} == *.patch ]]; then
                        files+=("${f}");
                    fi;
                done;
                ${prev_shopt}
            };
            local files=();
            _eapply_get_files "${f}";
            [[ ${#files[@]} -eq 0 ]] && die "No *.{patch,diff} files in directory ${f}";
            einfo "Applying patches from ${f} ...";
            local f2;
            for f2 in "${files[@]}";
            do
                _eapply_patch "${f2}" '  ';
                [[ ${failed} -ne 0 ]] && return "${failed}";
            done;
        else
            _eapply_patch "${f}";
            [[ ${failed} -ne 0 ]] && return "${failed}";
        fi;
    done;
    return 0
}
eapply_user () 
{ 
    [[ ${EBUILD_PHASE} == prepare ]] || die "eapply_user() called during invalid phase: ${EBUILD_PHASE}";
    local tagfile=${T}/.portage_user_patches_applied;
    [[ -f ${tagfile} ]] && return;
     >> "${tagfile}";
    local basedir=${PORTAGE_CONFIGROOT%/}/etc/portage/patches;
    local applied d f;
    local -A _eapply_user_patches;
    local prev_shopt=$(shopt -p nullglob);
    shopt -s nullglob;
    for d in "${basedir}"/${CATEGORY}/{${P}-${PR},${P},${PN}}{:${SLOT%/*},};
    do
        for f in "${d}"/*;
        do
            if [[ ( ${f} == *.diff || ${f} == *.patch ) && -z ${_eapply_user_patches[${f##*/}]} ]]; then
                _eapply_user_patches[${f##*/}]=${f};
            fi;
        done;
    done;
    if [[ ${#_eapply_user_patches[@]} -gt 0 ]]; then
        while read -r -d '' f; do
            f=${_eapply_user_patches[${f}]};
            if [[ -s ${f} ]]; then
                eapply "${f}";
                applied=1;
            fi;
        done < <(printf -- '%s\0' "${!_eapply_user_patches[@]}" |
				LC_ALL=C sort -z);
    fi;
    ${prev_shopt};
    [[ -n ${applied} ]] && ewarn "User patches applied."
}
egetcomment () 
{ 
    local pos;
    [[ $# -eq 1 ]] || die "usage: egetcomment <user>";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pos=8
        ;;
        *)
            pos=5
        ;;
    esac;
    egetent passwd "$1" | cut -d: -f${pos}
}
egetent () 
{ 
    local db=$1 key=$2;
    [[ $# -ge 3 ]] && die "usage: egetent <database> <key>";
    case ${db} in 
        passwd | group)

        ;;
        *)
            die "sorry, database '${db}' not yet supported; file a bug"
        ;;
    esac;
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            case ${db} in 
                passwd)
                    db="user"
                ;;
                *)

                ;;
            esac;
            local opts;
            if [[ ${key} == [[:digit:]]* ]]; then
                [[ ${db} == "user" ]] && opts="-u" || opts="-g";
            fi;
            pw show ${db} ${opts} "${key}" -q
        ;;
        *-openbsd*)
            grep "${key}:\*:" /etc/${db}
        ;;
        *)
            type -p nscd > /dev/null && nscd -i "${db}" 2> /dev/null;
            getent "${db}" "${key}"
        ;;
    esac
}
egetgroupname () 
{ 
    [[ $# -eq 1 ]] || die "usage: egetgroupname <gid>";
    egetent group "$1" | cut -d: -f1
}
egetgroups () 
{ 
    [[ $# -eq 1 ]] || die "usage: egetgroups <user>";
    local egroups_arr;
    read -r -a egroups_arr < <(id -G -n "$1");
    local g groups=${egroups_arr[0]};
    while read -r g; do
        [[ -n ${g} ]] && groups+=",${g}";
    done < <(printf '%s\n' "${egroups_arr[@]:1}" | sort);
    echo "${groups}"
}
egethome () 
{ 
    local pos;
    [[ $# -eq 1 ]] || die "usage: egethome <user>";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pos=9
        ;;
        *)
            pos=6
        ;;
    esac;
    egetent passwd "$1" | cut -d: -f${pos}
}
egetshell () 
{ 
    local pos;
    [[ $# -eq 1 ]] || die "usage: egetshell <user>";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pos=10
        ;;
        *)
            pos=7
        ;;
    esac;
    egetent passwd "$1" | cut -d: -f${pos}
}
egetusername () 
{ 
    [[ $# -eq 1 ]] || die "usage: egetusername <uid>";
    egetent passwd "$1" | cut -d: -f1
}
einstalldocs () 
{ 
    ( if ! declare -p DOCS &> /dev/null; then
        local d;
        for d in README* ChangeLog AUTHORS NEWS TODO CHANGES THANKS BUGS FAQ CREDITS CHANGELOG;
        do
            [[ -f ${d} && -s ${d} ]] && docinto / && dodoc "${d}";
        done;
    else
        if ___is_indexed_array_var DOCS; then
            [[ ${#DOCS[@]} -gt 0 ]] && docinto / && dodoc -r "${DOCS[@]}";
        else
            [[ -n ${DOCS} ]] && docinto / && dodoc -r ${DOCS};
        fi;
    fi );
    ( if ___is_indexed_array_var HTML_DOCS; then
        [[ ${#HTML_DOCS[@]} -gt 0 ]] && docinto html && dodoc -r "${HTML_DOCS[@]}";
    else
        [[ -n ${HTML_DOCS} ]] && docinto html && dodoc -r ${HTML_DOCS};
    fi )
}
enewgroup () 
{ 
    if [[ ${EUID} != 0 ]]; then
        einfo "Insufficient privileges to execute ${FUNCNAME[0]}";
        return 0;
    fi;
    _assert_pkg_ebuild_phase ${FUNCNAME};
    local force_gid=;
    while [[ $1 == -* ]]; do
        case $1 in 
            -F)
                force_gid=1
            ;;
            *)
                die "${FUNCNAME}: invalid option ${1}"
            ;;
        esac;
        shift;
    done;
    local egroup=$1;
    shift;
    if [[ -z ${egroup} ]]; then
        eerror "No group specified !";
        die "Cannot call enewgroup without a group";
    fi;
    if [[ -n $(egetent group "${egroup}") ]]; then
        return 0;
    fi;
    einfo "Adding group '${egroup}' to your system ...";
    local egid=$1;
    shift;
    if [[ ! -z ${egid} ]]; then
        if [[ ${egid} -gt 0 ]]; then
            if [[ -n $(egetent group ${egid}) ]]; then
                [[ -n ${force_gid} ]] && die "${FUNCNAME}: GID ${egid} already taken";
                egid="next available; requested gid taken";
            fi;
        else
            eerror "Groupid given but is not greater than 0 !";
            die "${egid} is not a valid GID";
        fi;
    else
        [[ -n ${force_gid} ]] && die "${FUNCNAME}: -F with gid==-1 makes no sense";
        egid="next available";
    fi;
    einfo " - Groupid: ${egid}";
    if [[ $# -gt 0 ]]; then
        die "extra arguments no longer supported; please file a bug";
    fi;
    function _enewgroup_next_gid () 
    { 
        if [[ ${egid} == *[!0-9]* ]]; then
            for ((egid = 999; egid >= 101; egid--))
            do
                [[ -z $(egetent group ${egid}) ]] && break;
            done;
            [[ ${egid} -ge 101 ]] || die "${FUNCNAME}: no free GID found";
        fi
    };
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            _enewgroup_next_gid;
            pw groupadd "${egroup}" -g ${egid} || die
        ;;
        *-netbsd*)
            _enewgroup_next_gid;
            groupadd -g ${egid} "${egroup}" || die
        ;;
        *)
            local opts;
            if [[ ${egid} == *[!0-9]* ]]; then
                opts="";
            else
                opts="-g ${egid}";
            fi;
            groupadd -r ${opts} "${egroup}" || die
        ;;
    esac
}
enewuser () 
{ 
    if [[ ${EUID} != 0 ]]; then
        einfo "Insufficient privileges to execute ${FUNCNAME[0]}";
        return 0;
    fi;
    _assert_pkg_ebuild_phase ${FUNCNAME};
    local create_home=1 force_uid=;
    while [[ $1 == -* ]]; do
        case $1 in 
            -F)
                force_uid=1
            ;;
            -M)
                create_home=
            ;;
            *)
                die "${FUNCNAME}: invalid option ${1}"
            ;;
        esac;
        shift;
    done;
    local euser=$1;
    shift;
    if [[ -z ${euser} ]]; then
        eerror "No username specified !";
        die "Cannot call enewuser without a username";
    fi;
    if [[ -n $(egetent passwd "${euser}") ]]; then
        return 0;
    fi;
    einfo "Adding user '${euser}' to your system ...";
    local opts=();
    local euid=$1;
    shift;
    if [[ -n ${euid} && ${euid} != -1 ]]; then
        if [[ ${euid} -gt 0 ]]; then
            if [[ -n $(egetent passwd ${euid}) ]]; then
                [[ -n ${force_uid} ]] && die "${FUNCNAME}: UID ${euid} already taken";
                euid="next";
            fi;
        else
            eerror "Userid given but is not greater than 0 !";
            die "${euid} is not a valid UID";
        fi;
    else
        [[ -n ${force_uid} ]] && die "${FUNCNAME}: -F with uid==-1 makes no sense";
        euid="next";
    fi;
    if [[ ${euid} == "next" ]]; then
        for ((euid = 999; euid >= 101; euid--))
        do
            [[ -z $(egetent passwd ${euid}) ]] && break;
        done;
        [[ ${euid} -ge 101 ]] || die "${FUNCNAME}: no free UID found";
    fi;
    opts+=(-u ${euid});
    einfo " - Userid: ${euid}";
    local eshell=$1;
    shift;
    if [[ ! -z ${eshell} ]] && [[ ${eshell} != "-1" ]]; then
        if [[ ! -e ${ROOT}${eshell} ]]; then
            eerror "A shell was specified but it does not exist !";
            die "${eshell} does not exist in ${ROOT}";
        fi;
        if [[ ${eshell} == */false || ${eshell} == */nologin ]]; then
            eerror "Do not specify ${eshell} yourself, use -1";
            die "Pass '-1' as the shell parameter";
        fi;
    else
        eshell=$(user_get_nologin);
    fi;
    einfo " - Shell: ${eshell}";
    opts+=(-s "${eshell}");
    local ehome=$1;
    shift;
    if [[ -z ${ehome} ]] || [[ ${ehome} == "-1" ]]; then
        ehome="/dev/null";
    fi;
    einfo " - Home: ${ehome}";
    opts+=(-d "${ehome}");
    local egroups=$1;
    shift;
    local g egroups_arr;
    IFS="," read -r -a egroups_arr <<< "${egroups}";
    if [[ ${#egroups_arr[@]} -gt 0 ]]; then
        local defgroup exgroups;
        for g in "${egroups_arr[@]}";
        do
            if [[ -z $(egetent group "${g}") ]]; then
                eerror "You must add group ${g} to the system first";
                die "${g} is not a valid GID";
            fi;
            if [[ -z ${defgroup} ]]; then
                defgroup=${g};
            else
                exgroups+=",${g}";
            fi;
        done;
        opts+=(-g "${defgroup}");
        if [[ ! -z ${exgroups} ]]; then
            opts+=(-G "${exgroups:1}");
        fi;
    fi;
    einfo " - Groups: ${egroups:-(none)}";
    if [[ $# -gt 0 ]]; then
        die "extra arguments no longer supported; please file a bug";
    else
        local comment="added by portage for ${PN}";
        opts+=(-c "${comment}");
        einfo " - GECOS: ${comment}";
    fi;
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pw useradd "${euser}" "${opts[@]}" || die
        ;;
        *-netbsd*)
            useradd "${opts[@]}" "${euser}" || die
        ;;
        *-openbsd*)
            useradd -u ${euid} -s "${eshell}" -d "${ehome}" -g "${egroups}" "${euser}" || die
        ;;
        *)
            useradd -M -N -r "${opts[@]}" "${euser}" || die
        ;;
    esac;
    if [[ -n ${create_home} && ! -e ${ROOT}/${ehome} ]]; then
        einfo " - Creating ${ehome} in ${ROOT}";
        mkdir -p "${ROOT}/${ehome}";
        chown "${euser}" "${ROOT}/${ehome}";
        chmod 755 "${ROOT}/${ehome}";
    fi
}
esetcomment () 
{ 
    _assert_pkg_ebuild_phase ${FUNCNAME};
    local euser=$1;
    shift;
    if [[ -z ${euser} ]]; then
        eerror "No username specified !";
        die "Cannot call esetcomment without a username";
    fi;
    if [[ -z $(egetent passwd "${euser}") ]]; then
        ewarn "User does not exist, cannot set comment -- skipping.";
        return 1;
    fi;
    local ecomment=$1;
    shift;
    if [[ -z ${ecomment} ]]; then
        eerror "No comment specified !";
        die "Cannot call esetcomment without a comment";
    fi;
    if [[ $(egetcomment "${euser}") == ${ecomment} ]]; then
        return 0;
    fi;
    einfo "Updating comment for user '${euser}' ...";
    einfo " - Comment: ${ecomment}";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pw usermod "${euser}" -c "${ecomment}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update comment";
            eerror "There was an error when attempting to update the comment for ${euser}";
            eerror "Please update it manually on your system:";
            eerror "\t pw usermod \"${euser}\" -c \"${ecomment}\""
        ;;
        *)
            usermod -c "${ecomment}" "${euser}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update comment";
            eerror "There was an error when attempting to update the comment for ${euser}";
            eerror "Please update it manually on your system (as root):";
            eerror "\t usermod -c \"${ecomment}\" \"${euser}\""
        ;;
    esac
}
esetgroups () 
{ 
    _assert_pkg_ebuild_phase ${FUNCNAME};
    [[ ${#} -eq 2 ]] || die "Usage: ${FUNCNAME} <user> <groups>";
    local euser=$1;
    shift;
    if [[ -z $(egetent passwd "${euser}") ]]; then
        ewarn "User does not exist, cannot set group -- skipping.";
        return 1;
    fi;
    local egroups=$1;
    shift;
    local g egroups_arr=();
    IFS="," read -r -a egroups_arr <<< "${egroups}";
    [[ ${#egroups_arr[@]} -gt 0 ]] || die "${FUNCNAME}: no groups specified";
    for g in "${egroups_arr[@]}";
    do
        if [[ -z $(egetent group "${g}") ]]; then
            eerror "You must add group ${g} to the system first";
            die "${g} is not a valid GID";
        fi;
    done;
    local defgroup=${egroups_arr[0]} exgroups_arr=();
    readarray -t exgroups_arr < <(printf '%s\n' "${egroups_arr[@]:1}" | sort);
    local exgroups=${exgroups_arr[*]};
    exgroups=${exgroups// /,};
    egroups=${defgroup}${exgroups:+,${exgroups}};
    if [[ $(egetgroups "${euser}") == ${egroups} ]]; then
        return 0;
    fi;
    local opts=(-g "${defgroup}" -G "${exgroups}");
    einfo "Updating groups for user '${euser}' ...";
    einfo " - Groups: ${egroups}";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pw usermod "${euser}" "${opts[@]}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update groups";
            eerror "There was an error when attempting to update the groups for ${euser}";
            eerror "Please update it manually on your system:";
            eerror "\t pw usermod \"${euser}\" ${opts[*]}"
        ;;
        *)
            usermod "${opts[@]}" "${euser}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update groups";
            eerror "There was an error when attempting to update the groups for ${euser}";
            eerror "Please update it manually on your system (as root):";
            eerror "\t usermod ${opts[*]} \"${euser}\""
        ;;
    esac
}
esethome () 
{ 
    _assert_pkg_ebuild_phase ${FUNCNAME};
    local euser=$1;
    shift;
    if [[ -z ${euser} ]]; then
        eerror "No username specified !";
        die "Cannot call esethome without a username";
    fi;
    if [[ -z $(egetent passwd "${euser}") ]]; then
        ewarn "User does not exist, cannot set home dir -- skipping.";
        return 1;
    fi;
    local ehome=$1;
    shift;
    if [[ -z ${ehome} ]]; then
        eerror "No home directory specified !";
        die "Cannot call esethome without a home directory or '-1'";
    fi;
    if [[ ${ehome} == "-1" ]]; then
        ehome="/dev/null";
    fi;
    if [[ $(egethome "${euser}") == ${ehome} ]]; then
        return 0;
    fi;
    einfo "Updating home for user '${euser}' ...";
    einfo " - Home: ${ehome}";
    if [[ ! -e ${ROOT}/${ehome} ]]; then
        einfo " - Creating ${ehome} in ${ROOT}";
        mkdir -p "${ROOT}/${ehome}";
        chown "${euser}" "${ROOT}/${ehome}";
        chmod 755 "${ROOT}/${ehome}";
    fi;
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pw usermod "${euser}" -d "${ehome}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update home";
            eerror "There was an error when attempting to update the home directory for ${euser}";
            eerror "Please update it manually on your system:";
            eerror "\t pw usermod \"${euser}\" -d \"${ehome}\""
        ;;
        *)
            usermod -d "${ehome}" "${euser}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update home";
            eerror "There was an error when attempting to update the home directory for ${euser}";
            eerror "Please update it manually on your system (as root):";
            eerror "\t usermod -d \"${ehome}\" \"${euser}\""
        ;;
    esac
}
esetshell () 
{ 
    _assert_pkg_ebuild_phase ${FUNCNAME};
    local euser=$1;
    shift;
    if [[ -z ${euser} ]]; then
        eerror "No username specified !";
        die "Cannot call esetshell without a username";
    fi;
    if [[ -z $(egetent passwd "${euser}") ]]; then
        ewarn "User does not exist, cannot set shell -- skipping.";
        return 1;
    fi;
    local eshell=$1;
    shift;
    if [[ -z ${eshell} ]]; then
        eerror "No shell specified !";
        die "Cannot call esetshell without a shell or '-1'";
    fi;
    if [[ ${eshell} == "-1" ]]; then
        eshell=$(user_get_nologin);
    fi;
    if [[ $(egetshell "${euser}") == ${eshell} ]]; then
        return 0;
    fi;
    einfo "Updating shell for user '${euser}' ...";
    einfo " - Shell: ${eshell}";
    case ${CHOST} in 
        *-freebsd* | *-dragonfly*)
            pw usermod "${euser}" -s "${eshell}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update shell";
            eerror "There was an error when attempting to update the shell for ${euser}";
            eerror "Please update it manually on your system:";
            eerror "\t pw usermod \"${euser}\" -s \"${eshell}\""
        ;;
        *)
            usermod -s "${eshell}" "${euser}" && return 0;
            [[ $? == 8 ]] && eerror "${euser} is in use, cannot update shell";
            eerror "There was an error when attempting to update the shell for ${euser}";
            eerror "Please update it manually on your system (as root):";
            eerror "\t usermod -s \"${eshell}\" \"${euser}\""
        ;;
    esac
}
get_libdir () 
{ 
    local libdir_var="LIBDIR_${ABI}";
    local libdir="lib";
    [[ -n ${ABI} && -n ${!libdir_var} ]] && libdir=${!libdir_var};
    echo "${libdir}"
}
get_nproc () 
{ 
    local nproc;
    if type -P nproc &> /dev/null; then
        nproc=$(nproc);
    fi;
    if [[ -z ${nproc} ]] && type -P sysctl &> /dev/null; then
        nproc=$(sysctl -n hw.ncpu 2>/dev/null);
    fi;
    if [[ -z ${nproc} ]] && type -P python &> /dev/null; then
        nproc=$(python -c 'import multiprocessing; print(multiprocessing.cpu_count());' 2>/dev/null);
    fi;
    if [[ -n ${nproc} ]]; then
        echo "${nproc}";
    else
        echo "${1:-1}";
    fi
}
in_iuse () 
{ 
    local use=${1};
    if [[ -z "${use}" ]]; then
        echo "!!! in_iuse() called without a parameter." 1>&2;
        echo "!!! in_iuse <USEFLAG>" 1>&2;
        die "in_iuse() called without a parameter";
    fi;
    local liuse=(${IUSE_EFFECTIVE});
    has "${use}" "${liuse[@]#[+-]}"
}
makeopts_jobs () 
{ 
    [[ $# -eq 0 ]] && set -- "${MAKEOPTS}";
    local jobs=$(echo " $* " | sed -r -n 		-e 's:.*[[:space:]](-[a-z]*j|--jobs[=[:space:]])[[:space:]]*([0-9]+).*:\2:p' 		-e "s:.*[[:space:]](-[a-z]*j|--jobs)[[:space:]].*:${2:-999}:p");
    echo ${jobs:-1}
}
makeopts_loadavg () 
{ 
    [[ $# -eq 0 ]] && set -- "${MAKEOPTS}";
    local lavg=$(echo " $* " | sed -r -n 		-e 's:.*[[:space:]](-[a-z]*l|--(load-average|max-load)[=[:space:]])[[:space:]]*([0-9]+(\.[0-9]+)?)[[:space:]].*:\3:p' 		-e "s:.*[[:space:]](-[a-z]*l|--(load-average|max-load))[[:space:]].*:${2:-999}:p");
    echo ${lavg:-${2:-999}}
}
perl-module_pkg_postinst () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ ${CATEGORY} != perl-core ]]; then
        eerror "perl-module.eclass: You are calling perl-module_pkg_postinst outside the perl-core category.";
        die "   This does not do anything; the call can be removed.";
    fi;
    perl_link_duallife_scripts
}
perl-module_pkg_postrm () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ ${CATEGORY} != perl-core ]]; then
        eerror "perl-module.eclass: You are calling perl-module_pkg_postrm outside the perl-core category.";
        die "   This does not do anything; the call can be removed.";
    fi;
    perl_link_duallife_scripts
}
perl-module_src_compile () 
{ 
    debug-print-function $FUNCNAME "$@";
    perl_set_version;
    if [[ $(declare -p mymake 2>&-) != "declare -a mymake="* ]]; then
        local mymake_local=(${mymake});
    else
        local mymake_local=("${mymake[@]}");
    fi;
    if [[ -f Build ]]; then
        ./Build build || die "Compilation failed";
    else
        if [[ -f Makefile ]]; then
            set -- OTHERLDFLAGS="${LDFLAGS}" "${mymake_local[@]}";
            einfo "emake" "$@";
            emake "$@" || die "Compilation failed";
        fi;
    fi
}
perl-module_src_configure () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ ${EAPI:-0} == 5 && ${SRC_PREP} == yes ]]; then
        return 0;
    fi;
    SRC_PREP="yes";
    perl_check_env;
    perl_set_version;
    [[ -z ${pm_echovar} ]] && export PERL_MM_USE_DEFAULT=1;
    export PERL_EXTUTILS_AUTOINSTALL="--skipdeps";
    if [[ $(declare -p myconf 2>&-) != "declare -a myconf="* ]]; then
        local myconf_local=(${myconf});
    else
        local myconf_local=("${myconf[@]}");
    fi;
    if [[ ( ${PREFER_BUILDPL} == yes || ! -f Makefile.PL ) && -f Build.PL ]]; then
        if grep -q '\(use\|require\)\s*Module::Build::Tiny' Build.PL; then
            einfo "Using Module::Build::Tiny";
            if [[ ${DEPEND} != *dev-perl/Module-Build-Tiny* && ${PN} != Module-Build-Tiny ]]; then
                eerror "QA Notice: The ebuild uses Module::Build::Tiny but doesn't depend on it.";
                die " Add dev-perl/Module-Build-Tiny to DEPEND!";
            fi;
        else
            einfo "Using Module::Build";
            if [[ ${DEPEND} != *virtual/perl-Module-Build* && ${DEPEND} != *dev-perl/Module-Build* && ${PN} != Module-Build ]]; then
                eerror "QA Notice: The ebuild uses Module::Build but doesn't depend on it.";
                die " Add dev-perl/Module-Build to DEPEND!";
            fi;
        fi;
        set -- --installdirs=vendor --libdoc= --destdir="${D}" --create_packlist=1 "${myconf_local[@]}";
        einfo "perl Build.PL" "$@";
        perl Build.PL "$@" <<< "${pm_echovar}" || die "Unable to build!";
    else
        if [[ -f Makefile.PL ]]; then
            einfo "Using ExtUtils::MakeMaker";
            set -- PREFIX=${EPREFIX}/usr INSTALLDIRS=vendor INSTALLMAN3DIR='none' DESTDIR="${D}" "${myconf_local[@]}";
            einfo "perl Makefile.PL" "$@";
            perl Makefile.PL "$@" <<< "${pm_echovar}" || die "Unable to build!";
        fi;
    fi;
    if [[ ! -f Build.PL && ! -f Makefile.PL ]]; then
        einfo "No Make or Build file detected...";
        return;
    fi
}
perl-module_src_install () 
{ 
    debug-print-function $FUNCNAME "$@";
    perl_set_version;
    local f;
    if [[ -f Build ]]; then
        mytargets="${mytargets:-install}";
        mbparams="${mbparams:---pure}";
        einfo "./Build ${mytargets} ${mbparams}";
        ./Build ${mytargets} ${mbparams} || die "./Build ${mytargets} ${mbparams} failed";
    else
        if [[ -f Makefile ]]; then
            case "${CATEGORY}" in 
                dev-perl | perl-core)
                    mytargets="pure_install"
                ;;
                *)
                    mytargets="install"
                ;;
            esac;
            if [[ $(declare -p myinst 2>&-) != "declare -a myinst="* ]]; then
                local myinst_local=(${myinst});
            else
                local myinst_local=("${myinst[@]}");
            fi;
            emake "${myinst_local[@]}" ${mytargets} || die "emake ${myinst_local[@]} ${mytargets} failed";
        fi;
    fi;
    perl_delete_module_manpages;
    perl_delete_localpod;
    if [[ ${EAPI:-0} == 5 ]]; then
        perl_delete_packlist;
    else
        perl_fix_packlist;
        perl_delete_emptybsdir;
    fi;
    perl_remove_temppath;
    for f in Change* CHANGES README* TODO FAQ ${mydoc};
    do
        [[ -s ${f} ]] && dodoc ${f};
    done;
    if [[ ${EAPI:-0} != 5 ]]; then
        if in_iuse examples && use examples; then
            [[ ${#DIST_EXAMPLES[@]} -eq 0 ]] || perl_doexamples "${DIST_EXAMPLES[@]}";
        fi;
    fi;
    perl_link_duallife_scripts
}
perl-module_src_prepare () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ ${EAPI:-0} == 5 ]]; then
        [[ -n ${PATCHES[@]} ]] && epatch "${PATCHES[@]}";
        debug-print "$FUNCNAME: applying user patches";
        epatch_user;
    else
        default;
    fi;
    if [[ -n ${PERL_RM_FILES[@]} ]]; then
        debug-print "$FUNCNAME: stripping unneeded files";
        perl_rm_files "${PERL_RM_FILES[@]}";
    fi;
    perl_fix_osx_extra
}
perl-module_src_test () 
{ 
    debug-print-function $FUNCNAME "$@";
    local my_test_control;
    local my_test_verbose;
    if [[ ${EAPI:-0} == 5 ]]; then
        my_test_control=${SRC_TEST};
        my_test_verbose=${TEST_VERBOSE:-0};
        if has 'do' ${my_test_control} || has 'parallel' ${my_test_control}; then
            if has "${my_test_verbose}" 0 && has 'parallel' ${my_test_control}; then
                export HARNESS_OPTIONS=j$(makeopts_jobs);
                einfo "Test::Harness Jobs=$(makeopts_jobs)";
            fi;
        else
            einfo Skipping tests due to SRC_TEST=${SRC_TEST};
            return 0;
        fi;
    else
        [[ -n "${DIST_TEST_OVERRIDE}" ]] && ewarn DIST_TEST_OVERRIDE is set to ${DIST_TEST_OVERRIDE};
        my_test_control=${DIST_TEST_OVERRIDE:-${DIST_TEST:-do parallel}};
        if ! has 'do' ${my_test_control} && ! has 'parallel' ${my_test_control}; then
            einfo Skipping tests due to DIST_TEST=${my_test_control};
            return 0;
        fi;
        if has verbose ${my_test_control}; then
            my_test_verbose=1;
        else
            my_test_verbose=0;
        fi;
        if has parallel ${my_test_control}; then
            export HARNESS_OPTIONS=j$(makeopts_jobs);
            einfo "Test::Harness Jobs=$(makeopts_jobs)";
        fi;
        if ! has network ${my_test_control}; then
            export NO_NETWORK_TESTING=1;
        fi;
    fi;
    perl_set_version;
    if [[ -f Build ]]; then
        ./Build test verbose=${my_test_verbose} || die "test failed";
    else
        if [[ -f Makefile ]]; then
            emake test TEST_VERBOSE=${my_test_verbose} || die "test failed";
        fi;
    fi
}
perl-module_src_unpack () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ ${EAPI:-0} == 5 ]] || die "perl-module_src_unpack is banned in EAPI=6 or later";
    unpacker_src_unpack
}
perl_check_env () 
{ 
    local errored value;
    for i in PERL_MM_OPT PERL5LIB PERL5OPT PERL_MB_OPT PERL_CORE PERLPREFIX;
    do
        [ -v $i ] || continue;
        if [ ${errored:-0} == 0 ]; then
            if [ -n "${I_KNOW_WHAT_I_AM_DOING}" ]; then
                elog "perl-module.eclass: Suspicious environment values found.";
            else
                eerror "perl-module.eclass: Suspicious environment values found.";
            fi;
        fi;
        errored=1;
        value=${!i};
        if [ -n "${I_KNOW_WHAT_I_AM_DOING}" ]; then
            elog "    $i=\"$value\"";
        else
            eerror "    $i=\"$value\"";
        fi;
    done;
    [ ${errored:-0} == 0 ] && return;
    if [ -n "${I_KNOW_WHAT_I_AM_DOING}" ]; then
        elog "Continuing anyway, seems you know what you're doing.";
        return;
    fi;
    eerror "Your environment settings may lead to undefined behavior and/or build failures.";
    die "Please fix your environment ( ~/.bashrc, package.env, ... ), see above for details."
}
perl_delete_emptybsdir () 
{ 
    debug-print-function $FUNCNAME "$@";
    perl_set_version;
    if [[ -d ${D}/${VENDOR_ARCH} ]]; then
        find "${D}/${VENDOR_ARCH}" -type f -a -name '*.bs' -a -empty -delete;
        find "${D}" -depth -mindepth 1 -type d -empty -delete;
    fi
}
perl_delete_localpod () 
{ 
    debug-print-function $FUNCNAME "$@";
    find "${D}" -type f -name perllocal.pod -delete;
    find "${D}" -depth -mindepth 1 -type d -empty -delete
}
perl_delete_module_manpages () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ -d "${ED}"/usr/share/man ]]; then
        find "${ED}"/usr/share/man -type f -name "*.3pm" -delete;
        find "${ED}"/usr/share/man -depth -type d -empty -delete;
    fi
}
perl_delete_packlist () 
{ 
    debug-print-function $FUNCNAME "$@";
    perl_set_version;
    if [[ -d ${D}/${VENDOR_ARCH} ]]; then
        find "${D}/${VENDOR_ARCH}" -type f -a -name .packlist -delete;
        perl_delete_emptybsdir;
    fi
}
perl_doexamples () 
{ 
    debug-print-function $FUNCNAME "$@";
    einfo "Installing examples into /usr/share/doc/${PF}/examples";
    docompress -x /usr/share/doc/${PF}/examples;
    docinto examples/;
    dodoc -r $@
}
perl_domodule () 
{ 
    local target_prefix="";
    local files=();
    local doins_opts=();
    local recursive="false";
    local target;
    local file;
    while [[ $# -gt 0 ]]; do
        case $1 in 
            -C | --target-prefix)
                [[ -z "${2}" || "${2:0:1}" == "-" ]] && die "${FUNCNAME}: -C|--target-prefix expects an argument, got \"$2\"!";
                target_prefix="${2}";
                shift 2
            ;;
            -r)
                recursive="true";
                shift
            ;;
            *)
                [[ -z "${1}" || "${1:0:1}" == "-" ]] && die "${FUNCNAME}: Unknown argument \"${1}\"!";
                files+=("${1}");
                shift 1
            ;;
        esac;
    done;
    if [[ "true" == $recursive ]]; then
        doins_opts+=("-r");
    fi;
    for file in "${files[@]}";
    do
        [[ -e "${file}" ]] || die "$FUNCNAME: Argument \"${file}\" is not an existing file";
        [[ "false" == ${recursive} && -d "${file}" ]] && die "$FUNCNAME: Argument \"${file}\" is a directory ( needs -r parameter )";
    done;
    target="$(perl_get_vendorlib)";
    [[ -z "${target_prefix}" ]] || target="${target%/}/${target_prefix#/}";
    insinto "/${target#/}";
    doins "${doins_opts[@]}" "${files[@]}"
}
perl_fix_osx_extra () 
{ 
    debug-print-function $FUNCNAME "$@";
    local f;
    find "${S}" -type f -name "._*" -print0 | while read -rd '' f; do
        einfo "Removing AppleDouble encoded Macintosh file: ${f#${S}/}";
        rm -f "${f}";
        f=${f#${S}/};
        grep -q "${f}" "${S}"/MANIFEST && elog "AppleDouble encoded Macintosh file in MANIFEST: ${f#${S}/}";
    done
}
perl_fix_packlist () 
{ 
    debug-print-function $FUNCNAME "$@";
    local packlist_temp="${T}/.gentoo_packlist_temp";
    find "${D}" -type f -name '.packlist' -print0 | while read -rd '' f; do
        if file "${f}" | grep -q -i " text"; then
            einfo "Fixing packlist file /${f#${D}}";
            sed -i -e "s:${D%/}/:/:g" "${f}";
            sort -u "${f}" > "${packlist_temp}";
            mv "${packlist_temp}" "${f}";
            cat "${f}" | while read -r entry; do
                if [ ! -e "${D}/${entry}" ]; then
                    einfo "Pruning surplus packlist entry ${entry}";
                    grep -v -x -F "${entry}" "${f}" > "${packlist_temp}";
                    mv "${packlist_temp}" "${f}";
                fi;
            done;
        fi;
    done
}
perl_get_module_version () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ $# -gt 0 ]] || die "${FUNCNAME}: No module name provided";
    [[ $# -lt 2 ]] || die "${FUNCNAME}: Too many parameters ($#)";
    if ! perl_has_module "$@"; then
        echo "(Not Installed)";
        return 1;
    fi;
    perl -we 'my $mn = $ARGV[0];
		$mn =~ s{(::|\x{27})}{/}g;
		local $@;
		eval { require qq[${mn}.pm]; 1 } or do {
			print q[(Compilation failed in require)];
			exit 1;
		};
		my $stash = \%{ $ARGV[0] . q[::] };
		if ( not exists $stash->{VERSION} ) {
			print q[(No VERSION property)];
			exit 0;
		}
		if ( not defined ${$stash->{VERSION}} ) {
			print q[(undef)];
			exit 0;
		}
		print ${$stash->{VERSION}};
		exit 0; ' "$@"
}
perl_get_raw_vendorlib () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ $# -lt 1 ]] || die "${FUNCNAME}: Too many parameters ($#)";
    perl -MConfig -e'exists $Config{$ARGV[0]} || die qq{No such Config key "$ARGV[0]"};
		   print $Config{$ARGV[0]};
		   exit 0' -- "installvendorlib" || die "Can't extract installvendorlib from Perl Configuration"
}
perl_get_vendorlib () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ $# -lt 1 ]] || die "${FUNCNAME}: Too many parameters ($#)";
    perl -M5.014 -MConfig -e'exists $Config{$ARGV[0]} || die qq{No such Config key "$ARGV[0]"};
		   print $Config{$ARGV[0]} =~ s{\A\Q$ARGV[1]\E}{}r;
		   exit 0' -- "installvendorlib" "$EPREFIX" || die "Can't extract installvendorlib from Perl Configuration"
}
perl_has_module () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ $# -gt 0 ]] || die "${FUNCNAME}: No module name provided";
    [[ $# -lt 2 ]] || die "${FUNCNAME}: Too many parameters ($#)";
    perl -we 'my $mn = $ARGV[0];
		$mn =~ s{(::|\x{27})}{/}g;
		for(@INC){
			next if ref $_;
			exit 0 if -r $_ . q[/] . $mn . q[.pm]
		}
		exit 1' "$@"
}
perl_has_module_version () 
{ 
    debug-print-function $FUNCNAME "$@";
    [[ $# -gt 0 ]] || die "${FUNCNAME}: No module name provided";
    [[ $# -gt 1 ]] || die "${FUNCNAME}: No module version provided";
    [[ $# -lt 3 ]] || die "${FUNCNAME}: Too many parameters ($#)";
    perl -we 'my $mn = $ARGV[0];
		$mn =~ s{(::|\x{27})}{/}g;
		exit ( eval {
			require qq[${mn}.pm];
			$ARGV[0]->VERSION($ARGV[1]);
			1
		} ? 0 : 1 )' "$@"
}
perl_link_duallife_scripts () 
{ 
    debug-print-function $FUNCNAME "$@";
    if [[ ${CATEGORY} != perl-core ]] || ! has_version ">=dev-lang/perl-5.8.8-r8"; then
        return 0;
    fi;
    local i ff;
    if has "${EBUILD_PHASE:-none}" "postinst" "postrm"; then
        for i in "${DUALLIFESCRIPTS[@]}";
        do
            alternatives_auto_makesym "/${i}" "/${i}-[0-9]*";
        done;
        for i in "${DUALLIFEMAN[@]}";
        do
            ff=`echo "${EROOT}"/${i%.1}-${PV}-${P}.1*`;
            ff=${ff##*.1};
            alternatives_auto_makesym "/${i}${ff}" "/${i%.1}-[0-9]*";
        done;
    else
        pushd "${ED}" > /dev/null;
        for i in $(find usr/bin -maxdepth 1 -type f 2>/dev/null);
        do
            mv ${i}{,-${PV}-${P}} || die;
            DUALLIFESCRIPTS[${#DUALLIFESCRIPTS[*]}]=${i};
        done;
        for i in $(find usr/share/man/man1 -maxdepth 1 -type f 2>/dev/null);
        do
            mv ${i} ${i%.1}-${PV}-${P}.1 || die;
            DUALLIFEMAN[${#DUALLIFEMAN[*]}]=${i};
        done;
        popd > /dev/null;
    fi
}
perl_remove_temppath () 
{ 
    debug-print-function $FUNCNAME "$@";
    find "${D}" -type f -not -name '*.so' -print0 | while read -rd '' f; do
        if file "${f}" | grep -q -i " text"; then
            grep -q "${D}" "${f}" && ewarn "QA: File contains a temporary path ${f}";
            sed -i -e "s:${D%/}/:/:g" "${f}";
        fi;
    done
}
perl_rm_files () 
{ 
    debug-print-function $FUNCNAME "$@";
    local skipfile="${T}/.gentoo_makefile_skip";
    local manifile="${S}/MANIFEST";
    local manitemp="${T}/.gentoo_manifest_temp";
    oldifs="$IFS";
    IFS="\n";
    for filename in "$@";
    do
        einfo "Removing un-needed ${filename}";
        rm -f "${S}/${filename}";
        [[ -e "${manifile}" ]] && echo "${filename}" >> "${skipfile}";
    done;
    if [[ -e "${manifile}" && -e "${skipfile}" ]]; then
        einfo "Fixing Manifest";
        grep -v -F -f "${skipfile}" "${manifile}" > "${manitemp}";
        mv -f -- "${manitemp}" "${manifile}";
        rm -- "${skipfile}";
    fi;
    IFS="$oldifs"
}
perl_set_version () 
{ 
    debug-print-function $FUNCNAME "$@";
    debug-print "$FUNCNAME: perlinfo_done=${perlinfo_done}";
    ${perlinfo_done} && return 0;
    perlinfo_done=true;
    local f version install{{site,vendor}{arch,lib},archlib};
    eval "$(perl -V:{version,install{{site,vendor}{arch,lib},archlib}} )";
    PERL_VERSION=${version};
    SITE_ARCH=${installsitearch};
    SITE_LIB=${installsitelib};
    ARCH_LIB=${installarchlib};
    VENDOR_LIB=${installvendorlib};
    VENDOR_ARCH=${installvendorarch}
}
pkg_nofetch () 
{ 
    default
}
pkg_postinst () 
{ 
    chmod 640 "${ROOT}"/etc/mogilefs/{mogilefsd,mogstored}.conf;
    chown root:${MOGILE_USER} "${ROOT}"/etc/mogilefs/{mogilefsd,mogstored}.conf
}
pkg_setup () 
{ 
    enewuser ${MOGILE_USER} 460 -1 -1
}
src_compile () 
{ 
    perl-module_src_compile "$@"
}
src_configure () 
{ 
    perl-module_src_configure "$@"
}
src_install () 
{ 
    perl-module_src_install || die "perl-module_src_install failed";
    cd "${S}";
    newconfd "${S}"/gentoo/conf.d/mogilefsd mogilefsd;
    newinitd "${S}"/gentoo/init.d/mogilefsd mogilefsd;
    newconfd "${S}"/gentoo/conf.d/mogstored mogstored;
    newinitd "${S}"/gentoo/init.d/mogstored mogstored;
    newinitd "${S}"/gentoo/init.d/mogautomount mogautomount;
    diropts -m 700 -o ${MOGILE_USER};
    keepdir /var/mogdata;
    diropts -m 755 -o root;
    dodir /etc/mogilefs;
    insinto /etc/mogilefs;
    insopts -m 600 -o root -g ${MOGILE_USER};
    newins "${S}"/gentoo/conf/mogilefsd.conf mogilefsd.conf;
    newins "${S}"/gentoo/conf/mogstored.conf mogstored.conf
}
src_prepare () 
{ 
    perl-module_src_prepare "$@"
}
src_test () 
{ 
    export MOGTEST_DBUSER=mogile MOGTEST_DBNAME=tmp_mogiletest MOGTEST_DBTYPE=SQLite TMPDIR="${T}/mogile";
    make -j1 test TEST_VERBOSE=1 MOGTEST_DBUSER=${MOGTEST_DBUSER} MOGTEST_DBNAME=${MOGTEST_DBNAME} MOGTEST_DBTYPE=${MOGTEST_DBTYPE} TMPDIR="${TMPDIR}"
}
src_unpack () 
{ 
    default
}
user_get_nologin () 
{ 
    local eshell;
    for eshell in /sbin/nologin /usr/sbin/nologin /bin/false /usr/bin/false /dev/null;
    do
        [[ -x ${ROOT}${eshell} ]] && break;
    done;
    if [[ ${eshell} == "/dev/null" ]]; then
        ewarn "Unable to identify the shell to use, proceeding with userland default.";
        case ${USERLAND} in 
            GNU)
                eshell="/bin/false"
            ;;
            BSD)
                eshell="/sbin/nologin"
            ;;
            Darwin)
                eshell="/usr/sbin/nologin"
            ;;
            *)
                die "Unable to identify the default shell for userland ${USERLAND}"
            ;;
        esac;
    fi;
    echo "${eshell}"
}