gentoo-x86/eclass/perl-module.eclass

# Copyright 1999-2009 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/perl-module.eclass,v 1.126 2010/07/15 11:44:48 tove Exp $
#
# Author: Seemant Kulleen <seemant@gentoo.org>

# @ECLASS: perl-module.eclass
# @MAINTAINER:
# perl@gentoo.org
# @BLURB: eclass for perl modules
# @DESCRIPTION:
# The perl-module eclass is designed to allow easier installation of perl
# modules, and their incorporation into the Gentoo Linux system.

inherit eutils base
[[ ${CATEGORY} == "perl-core" ]] && inherit alternatives

PERL_EXPF="src_unpack src_compile src_test src_install"

case "${EAPI:-0}" in
        0|1)
                PERL_EXPF+=" pkg_setup pkg_preinst pkg_postinst pkg_prerm pkg_postrm"
                ;;
        2|3)
                PERL_EXPF+=" src_prepare src_configure"
                [[ ${CATEGORY} == "perl-core" ]] && \
                        PERL_EXPF+=" pkg_postinst pkg_postrm"

                case "${GENTOO_DEPEND_ON_PERL:-yes}" in
                        yes)
                                DEPEND="dev-lang/perl[-build]"
                                RDEPEND="${DEPEND}"
                                ;;
                esac
                ;;
        *)
                die "EAPI=${EAPI} is not supported by perl-module.eclass"
                ;;
esac

case "${PERL_EXPORT_PHASE_FUNCTIONS:-yes}" in
        yes)
                EXPORT_FUNCTIONS ${PERL_EXPF}
                ;;
        no)
                debug-print "PERL_EXPORT_PHASE_FUNCTIONS=no"
                ;;
        *)
                die "PERL_EXPORT_PHASE_FUNCTIONS=${PERL_EXPORT_PHASE_FUNCTIONS} is not supported by perl-module.eclass"
                ;;
esac

DESCRIPTION="Based on the $ECLASS eclass"

LICENSE="${LICENSE:-|| ( Artistic GPL-1 GPL-2 GPL-3 )}"

if [[ -n ${MY_PN} || -n ${MY_PV} || -n ${MODULE_VERSION} ]] ; then
        : ${MY_P:=${MY_PN:-${PN}}-${MY_PV:-${MODULE_VERSION:-${PV}}}}
        S=${MY_S:-${WORKDIR}/${MY_P}}
fi
[[ -z "${SRC_URI}" && -z "${MODULE_A}" ]] && MODULE_A="${MY_P:-${P}}.tar.gz"
[[ -z "${SRC_URI}" && -n "${MODULE_AUTHOR}" ]] && \
        SRC_URI="mirror://cpan/authors/id/${MODULE_AUTHOR:0:1}/${MODULE_AUTHOR:0:2}/${MODULE_AUTHOR}/${MODULE_SECTION:+${MODULE_SECTION}/}${MODULE_A}"
[[ -z "${HOMEPAGE}" ]] && \
        HOMEPAGE="http://search.cpan.org/dist/${MY_PN:-${PN}}/"

SRC_PREP="no"
SRC_TEST="skip"
PREFER_BUILDPL="yes"

pm_echovar=""
perlinfo_done=false

perl-module_src_unpack() {
        debug-print-function $FUNCNAME "$@"
        base_src_unpack
        has src_prepare ${PERL_EXPF} || perl-module_src_prepare
}

perl-module_src_prepare() {
        debug-print-function $FUNCNAME "$@"
        has src_prepare ${PERL_EXPF} && base_src_prepare
        perl_fix_osx_extra
        esvn_clean
}

perl-module_src_configure() {
        debug-print-function $FUNCNAME "$@"
        perl-module_src_prep
}

perl-module_src_prep() {
        debug-print-function $FUNCNAME "$@"
        [[ ${SRC_PREP} = yes ]] && return 0
        SRC_PREP="yes"

        perl_set_version
        perl_set_eprefix

        export PERL_MM_USE_DEFAULT=1
        # Disable ExtUtils::AutoInstall from prompting
        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
                einfo "Using Module::Build"
                if [[ ${DEPEND} != *virtual/perl-Module-Build* && ${PN} != Module-Build ]] ; then
                        eqawarn "QA Notice: The ebuild uses Module::Build but doesn't depend on it."
                        eqawarn "           Add virtual/perl-Module-Build to DEPEND!"
                        if [[ -n ${PERLQAFATAL} ]]; then
                                eerror "Bailing out due to PERLQAFATAL=1";
                                die;
                        fi
                fi
                set -- \
                        --installdirs=vendor \
                        --libdoc= \
                        --destdir="${D}" \
                        --create_packlist=0 \
                        "${myconf_local[@]}"
                einfo "perl Build.PL" "$@"
                perl Build.PL "$@" <<< "${pm_echovar}" \
                                || die "Unable to build!"
        elif [[ -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
        if [[ ! -f Build.PL && ! -f Makefile.PL ]] ; then
                einfo "No Make or Build file detected..."
                return
        fi
}

perl-module_src_compile() {
        debug-print-function $FUNCNAME "$@"
        perl_set_version

        has src_configure ${PERL_EXPF} || perl-module_src_prep

        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"
        elif [[ -f Makefile ]] ; then
                set -- \
                        OTHERLDFLAGS="${LDFLAGS}" \
                        "${mymake_local[@]}"
                einfo "emake" "$@"
                emake "$@" \
                        || die "Compilation failed"
#                       OPTIMIZE="${CFLAGS}" \
        fi
}

# For testers:
#  This code attempts to work out your threadingness from MAKEOPTS
#  and apply them to Test::Harness.
#
#  If you want more verbose testing, set TEST_VERBOSE=1
#  in your bashrc | /etc/make.conf | ENV
#
# For ebuild writers:
#  If you wish to enable default tests w/ 'make test' ,
#
#   SRC_TEST="do"
#
#  If you wish to have threads run in parallel ( using the users makeopts )
#  all of the following have been tested to work.
#
#   SRC_TEST="do parallel"
#   SRC_TEST="parallel"
#   SRC_TEST="parallel do"
#   SRC_TEST=parallel
#

perl-module_src_test() {
        debug-print-function $FUNCNAME "$@"
        if has 'do' ${SRC_TEST} || has 'parallel' ${SRC_TEST} ; then
                if has "${TEST_VERBOSE:-0}" 0 && has 'parallel' ${SRC_TEST} ; then
                        export HARNESS_OPTIONS=j$(echo -j1 ${MAKEOPTS} | sed -r "s/.*(-j\s*|--jobs=)([0-9]+).*/\2/" )
                        einfo "Test::Harness Jobs=${HARNESS_OPTIONS}"
                fi
                ${perlinfo_done} || perl_set_version
                if [[ -f Build ]] ; then
                        ./Build test verbose=${TEST_VERBOSE:-0} || die "test failed"
                elif [[ -f Makefile ]] ; then
                        emake test TEST_VERBOSE=${TEST_VERBOSE:-0} || die "test failed"
                fi
        fi
}

perl-module_src_install() {
        debug-print-function $FUNCNAME "$@"

        perl_set_version
        perl_set_eprefix

        local f

        if [[ -z ${mytargets} ]] ; then
                case "${CATEGORY}" in
                        dev-perl|perl-core) mytargets="pure_install" ;;
                        *)                  mytargets="install" ;;
                esac
        fi

        if [[ $(declare -p myinst 2>&-) != "declare -a myinst="* ]]; then
                local myinst_local=(${myinst})
        else
                local myinst_local=("${myinst[@]}")
        fi

        if [[ -f Build ]] ; then
                ./Build ${mytargets} \
                        || die "./Build ${mytargets} failed"
        elif [[ -f Makefile ]] ; then
                emake "${myinst_local[@]}" ${mytargets} \
                        || die "emake ${myinst_local[@]} ${mytargets} failed"
        fi

        perl_delete_module_manpages
        perl_delete_localpod
        perl_delete_packlist
        perl_remove_temppath

        for f in Change* CHANGES README* TODO FAQ ${mydoc}; do
                [[ -s ${f} ]] && dodoc ${f}
        done

        perl_link_duallife_scripts
}

perl-module_pkg_setup() {
        debug-print-function $FUNCNAME "$@"
        perl_set_version
}

perl-module_pkg_preinst() {
        debug-print-function $FUNCNAME "$@"
        perl_set_version
}

perl-module_pkg_postinst() {
        debug-print-function $FUNCNAME "$@"
        perl_link_duallife_scripts
}

perl-module_pkg_prerm() {
        debug-print-function $FUNCNAME "$@"
}

perl-module_pkg_postrm() {
        debug-print-function $FUNCNAME "$@"
        perl_link_duallife_scripts
}

perlinfo() {
        debug-print-function $FUNCNAME "$@"
        perl_set_version
}

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}
}

fixlocalpod() {
        debug-print-function $FUNCNAME "$@"
        perl_delete_localpod
}

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_fix_osx_extra() {
        debug-print-function $FUNCNAME "$@"

        # Remove "AppleDouble encoded Macintosh file"
        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}/}
        #       f=${f//\//\/}
        #       f=${f//\./\.}
        #       sed -i "/${f}/d" "${S}"/MANIFEST || die
                grep -q "${f}" "${S}"/MANIFEST && \
                        elog "AppleDouble encoded Macintosh file in MANIFEST: ${f#${S}/}"
        done
}

perl_delete_module_manpages() {
        debug-print-function $FUNCNAME "$@"

        perl_set_eprefix

        if [[ -d "${ED}"/usr/share/man ]] ; then
#               einfo "Cleaning out stray man files"
                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 \
                        -o \( -name '*.bs' -a -empty \) \) -delete
                find "${D}" -depth -mindepth 1 -type d -empty -delete
        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_link_duallife_scripts() {
        debug-print-function $FUNCNAME "$@"
        if [[ ${CATEGORY} != perl-core ]] || ! has_version ">=dev-lang/perl-5.8.8-r8" ; then
                return 0
        fi

        perl_set_eprefix

        local i ff
        if has "${EBUILD_PHASE:-none}" "postinst" "postrm" ; then
                for i in "${DUALLIFESCRIPTS[@]}" ; do
                        alternatives_auto_makesym "/usr/bin/${i}" "/usr/bin/${i}-[0-9]*"
                        ff=`echo "${EROOT}"/usr/share/man/man1/${i}-${PV}-${P}.1*`
                        ff=${ff##*.1}
                        alternatives_auto_makesym "/usr/share/man/man1/${i}.1${ff}" "/usr/share/man/man1/${i}-[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##*/}
                        if [[ -f usr/share/man/man1/${i##*/}.1 ]] ; then
                                mv usr/share/man/man1/${i##*/}{.1,-${PV}-${P}.1} || die
                        fi
                done
                popd > /dev/null
        fi
}

perl_set_eprefix() {
        debug-print-function $FUNCNAME "$@"
        case ${EAPI:-0} in
                0|1|2)
                        if ! use prefix; then
                                EPREFIX=
                                ED=${D}
                                EROOT=${ROOT}
                        fi
                        ;;
        esac
}
1	# Copyright 1999-2009 Gentoo Foundation
2	# Distributed under the terms of the GNU General Public License v2
3	# $Header: /var/cvsroot/gentoo-x86/eclass/perl-module.eclass,v 1.126 2010/07/15 11:44:48 tove Exp $
4	#
5	# Author: Seemant Kulleen <seemant@gentoo.org>
6
7	# @ECLASS: perl-module.eclass
8	# @MAINTAINER:
9	# perl@gentoo.org
10	# @BLURB: eclass for perl modules
11	# @DESCRIPTION:
12	# The perl-module eclass is designed to allow easier installation of perl
13	# modules, and their incorporation into the Gentoo Linux system.
14
15	inherit eutils base
16	[[ ${CATEGORY} == "perl-core" ]] && inherit alternatives
17
18	PERL_EXPF="src_unpack src_compile src_test src_install"
19
20	case "${EAPI:-0}" in
21	0\|1)
22	PERL_EXPF+=" pkg_setup pkg_preinst pkg_postinst pkg_prerm pkg_postrm"
23	;;
24	2\|3)
25	PERL_EXPF+=" src_prepare src_configure"
26	[[ ${CATEGORY} == "perl-core" ]] && \
27	PERL_EXPF+=" pkg_postinst pkg_postrm"
28
29	case "${GENTOO_DEPEND_ON_PERL:-yes}" in
30	yes)
31	DEPEND="dev-lang/perl[-build]"
32	RDEPEND="${DEPEND}"
33	;;
34	esac
35	;;
36	*)
37	die "EAPI=${EAPI} is not supported by perl-module.eclass"
38	;;
39	esac
40
41	case "${PERL_EXPORT_PHASE_FUNCTIONS:-yes}" in
42	yes)
43	EXPORT_FUNCTIONS ${PERL_EXPF}
44	;;
45	no)
46	debug-print "PERL_EXPORT_PHASE_FUNCTIONS=no"
47	;;
48	*)
49	die "PERL_EXPORT_PHASE_FUNCTIONS=${PERL_EXPORT_PHASE_FUNCTIONS} is not supported by perl-module.eclass"
50	;;
51	esac
52
53	DESCRIPTION="Based on the $ECLASS eclass"
54
55	LICENSE="${LICENSE:-\|\| ( Artistic GPL-1 GPL-2 GPL-3 )}"
56
57	if [[ -n ${MY_PN} \|\| -n ${MY_PV} \|\| -n ${MODULE_VERSION} ]] ; then
58	: ${MY_P:=${MY_PN:-${PN}}-${MY_PV:-${MODULE_VERSION:-${PV}}}}
59	S=${MY_S:-${WORKDIR}/${MY_P}}
60	fi
61	[[ -z "${SRC_URI}" && -z "${MODULE_A}" ]] && MODULE_A="${MY_P:-${P}}.tar.gz"
62	[[ -z "${SRC_URI}" && -n "${MODULE_AUTHOR}" ]] && \
63	SRC_URI="mirror://cpan/authors/id/${MODULE_AUTHOR:0:1}/${MODULE_AUTHOR:0:2}/${MODULE_AUTHOR}/${MODULE_SECTION:+${MODULE_SECTION}/}${MODULE_A}"
64	[[ -z "${HOMEPAGE}" ]] && \
65	HOMEPAGE="http://search.cpan.org/dist/${MY_PN:-${PN}}/"
66
67	SRC_PREP="no"
68	SRC_TEST="skip"
69	PREFER_BUILDPL="yes"
70
71	pm_echovar=""
72	perlinfo_done=false
73
74	perl-module_src_unpack() {
75	debug-print-function $FUNCNAME "$@"
76	base_src_unpack
77	has src_prepare ${PERL_EXPF} \|\| perl-module_src_prepare
78	}
79
80	perl-module_src_prepare() {
81	debug-print-function $FUNCNAME "$@"
82	has src_prepare ${PERL_EXPF} && base_src_prepare
83	perl_fix_osx_extra
84	esvn_clean
85	}
86
87	perl-module_src_configure() {
88	debug-print-function $FUNCNAME "$@"
89	perl-module_src_prep
90	}
91
92	perl-module_src_prep() {
93	debug-print-function $FUNCNAME "$@"
94	[[ ${SRC_PREP} = yes ]] && return 0
95	SRC_PREP="yes"
96
97	perl_set_version
98	perl_set_eprefix
99
100	export PERL_MM_USE_DEFAULT=1
101	# Disable ExtUtils::AutoInstall from prompting
102	export PERL_EXTUTILS_AUTOINSTALL="--skipdeps"
103
104	if [[ $(declare -p myconf 2>&-) != "declare -a myconf="* ]]; then
105	local myconf_local=(${myconf})
106	else
107	local myconf_local=("${myconf[@]}")
108	fi
109
110	if [[ ( ${PREFER_BUILDPL} == yes \|\| ! -f Makefile.PL ) && -f Build.PL ]] ; then
111	einfo "Using Module::Build"
112	if [[ ${DEPEND} != virtual/perl-Module-Build && ${PN} != Module-Build ]] ; then
113	eqawarn "QA Notice: The ebuild uses Module::Build but doesn't depend on it."
114	eqawarn " Add virtual/perl-Module-Build to DEPEND!"
115	if [[ -n ${PERLQAFATAL} ]]; then
116	eerror "Bailing out due to PERLQAFATAL=1";
117	die;
118	fi
119	fi
120	set -- \
121	--installdirs=vendor \
122	--libdoc= \
123	--destdir="${D}" \
124	--create_packlist=0 \
125	"${myconf_local[@]}"
126	einfo "perl Build.PL" "$@"
127	perl Build.PL "$@" <<< "${pm_echovar}" \
128	\|\| die "Unable to build!"
129	elif [[ -f Makefile.PL ]] ; then
130	einfo "Using ExtUtils::MakeMaker"
131	set -- \
132	PREFIX=${EPREFIX}/usr \
133	INSTALLDIRS=vendor \
134	INSTALLMAN3DIR='none' \
135	DESTDIR="${D}" \
136	"${myconf_local[@]}"
137	einfo "perl Makefile.PL" "$@"
138	perl Makefile.PL "$@" <<< "${pm_echovar}" \
139	\|\| die "Unable to build!"
140	fi
141	if [[ ! -f Build.PL && ! -f Makefile.PL ]] ; then
142	einfo "No Make or Build file detected..."
143	return
144	fi
145	}
146
147	perl-module_src_compile() {
148	debug-print-function $FUNCNAME "$@"
149	perl_set_version
150
151	has src_configure ${PERL_EXPF} \|\| perl-module_src_prep
152
153	if [[ $(declare -p mymake 2>&-) != "declare -a mymake="* ]]; then
154	local mymake_local=(${mymake})
155	else
156	local mymake_local=("${mymake[@]}")
157	fi
158
159	if [[ -f Build ]] ; then
160	./Build build \
161	\|\| die "Compilation failed"
162	elif [[ -f Makefile ]] ; then
163	set -- \
164	OTHERLDFLAGS="${LDFLAGS}" \
165	"${mymake_local[@]}"
166	einfo "emake" "$@"
167	emake "$@" \
168	\|\| die "Compilation failed"
169	# OPTIMIZE="${CFLAGS}" \
170	fi
171	}
172
173	# For testers:
174	# This code attempts to work out your threadingness from MAKEOPTS
175	# and apply them to Test::Harness.
176	#
177	# If you want more verbose testing, set TEST_VERBOSE=1
178	# in your bashrc \| /etc/make.conf \| ENV
179	#
180	# For ebuild writers:
181	# If you wish to enable default tests w/ 'make test' ,
182	#
183	# SRC_TEST="do"
184	#
185	# If you wish to have threads run in parallel ( using the users makeopts )
186	# all of the following have been tested to work.
187	#
188	# SRC_TEST="do parallel"
189	# SRC_TEST="parallel"
190	# SRC_TEST="parallel do"
191	# SRC_TEST=parallel
192	#
193
194	perl-module_src_test() {
195	debug-print-function $FUNCNAME "$@"
196	if has 'do' ${SRC_TEST} \|\| has 'parallel' ${SRC_TEST} ; then
197	if has "${TEST_VERBOSE:-0}" 0 && has 'parallel' ${SRC_TEST} ; then
198	export HARNESS_OPTIONS=j$(echo -j1 ${MAKEOPTS} \| sed -r "s/.(-j\s\|--jobs=)([0-9]+).*/\2/" )
199	einfo "Test::Harness Jobs=${HARNESS_OPTIONS}"
200	fi
201	${perlinfo_done} \|\| perl_set_version
202	if [[ -f Build ]] ; then
203	./Build test verbose=${TEST_VERBOSE:-0} \|\| die "test failed"
204	elif [[ -f Makefile ]] ; then
205	emake test TEST_VERBOSE=${TEST_VERBOSE:-0} \|\| die "test failed"
206	fi
207	fi
208	}
209
210	perl-module_src_install() {
211	debug-print-function $FUNCNAME "$@"
212
213	perl_set_version
214	perl_set_eprefix
215
216	local f
217
218	if [[ -z ${mytargets} ]] ; then
219	case "${CATEGORY}" in
220	dev-perl\|perl-core) mytargets="pure_install" ;;
221	*) mytargets="install" ;;
222	esac
223	fi
224
225	if [[ $(declare -p myinst 2>&-) != "declare -a myinst="* ]]; then
226	local myinst_local=(${myinst})
227	else
228	local myinst_local=("${myinst[@]}")
229	fi
230
231	if [[ -f Build ]] ; then
232	./Build ${mytargets} \
233	\|\| die "./Build ${mytargets} failed"
234	elif [[ -f Makefile ]] ; then
235	emake "${myinst_local[@]}" ${mytargets} \
236	\|\| die "emake ${myinst_local[@]} ${mytargets} failed"
237	fi
238
239	perl_delete_module_manpages
240	perl_delete_localpod
241	perl_delete_packlist
242	perl_remove_temppath
243
244	for f in Change* CHANGES README* TODO FAQ ${mydoc}; do
245	[[ -s ${f} ]] && dodoc ${f}
246	done
247
248	perl_link_duallife_scripts
249	}
250
251	perl-module_pkg_setup() {
252	debug-print-function $FUNCNAME "$@"
253	perl_set_version
254	}
255
256	perl-module_pkg_preinst() {
257	debug-print-function $FUNCNAME "$@"
258	perl_set_version
259	}
260
261	perl-module_pkg_postinst() {
262	debug-print-function $FUNCNAME "$@"
263	perl_link_duallife_scripts
264	}
265
266	perl-module_pkg_prerm() {
267	debug-print-function $FUNCNAME "$@"
268	}
269
270	perl-module_pkg_postrm() {
271	debug-print-function $FUNCNAME "$@"
272	perl_link_duallife_scripts
273	}
274
275	perlinfo() {
276	debug-print-function $FUNCNAME "$@"
277	perl_set_version
278	}
279
280	perl_set_version() {
281	debug-print-function $FUNCNAME "$@"
282	debug-print "$FUNCNAME: perlinfo_done=${perlinfo_done}"
283	${perlinfo_done} && return 0
284	perlinfo_done=true
285
286	local f version install{{site,vendor}{arch,lib},archlib}
287	eval "$(perl -V:{version,install{{site,vendor}{arch,lib},archlib}} )"
288	PERL_VERSION=${version}
289	SITE_ARCH=${installsitearch}
290	SITE_LIB=${installsitelib}
291	ARCH_LIB=${installarchlib}
292	VENDOR_LIB=${installvendorlib}
293	VENDOR_ARCH=${installvendorarch}
294	}
295
296	fixlocalpod() {
297	debug-print-function $FUNCNAME "$@"
298	perl_delete_localpod
299	}
300
301	perl_delete_localpod() {
302	debug-print-function $FUNCNAME "$@"
303
304	find "${D}" -type f -name perllocal.pod -delete
305	find "${D}" -depth -mindepth 1 -type d -empty -delete
306	}
307
308	perl_fix_osx_extra() {
309	debug-print-function $FUNCNAME "$@"
310
311	# Remove "AppleDouble encoded Macintosh file"
312	local f
313	find "${S}" -type f -name "._*" -print0 \| while read -rd '' f ; do
314	einfo "Removing AppleDouble encoded Macintosh file: ${f#${S}/}"
315	rm -f "${f}"
316	f=${f#${S}/}
317	# f=${f//\//\/}
318	# f=${f//\./\.}
319	# sed -i "/${f}/d" "${S}"/MANIFEST \|\| die
320	grep -q "${f}" "${S}"/MANIFEST && \
321	elog "AppleDouble encoded Macintosh file in MANIFEST: ${f#${S}/}"
322	done
323	}
324
325	perl_delete_module_manpages() {
326	debug-print-function $FUNCNAME "$@"
327
328	perl_set_eprefix
329
330	if [[ -d "${ED}"/usr/share/man ]] ; then
331	# einfo "Cleaning out stray man files"
332	find "${ED}"/usr/share/man -type f -name "*.3pm" -delete
333	find "${ED}"/usr/share/man -depth -type d -empty -delete
334	fi
335	}
336
337
338	perl_delete_packlist() {
339	debug-print-function $FUNCNAME "$@"
340	perl_set_version
341	if [[ -d ${D}/${VENDOR_ARCH} ]] ; then
342	find "${D}/${VENDOR_ARCH}" -type f -a \( -name .packlist \
343	-o \( -name '*.bs' -a -empty \) \) -delete
344	find "${D}" -depth -mindepth 1 -type d -empty -delete
345	fi
346	}
347
348	perl_remove_temppath() {
349	debug-print-function $FUNCNAME "$@"
350
351	find "${D}" -type f -not -name '*.so' -print0 \| while read -rd '' f ; do
352	if file "${f}" \| grep -q -i " text" ; then
353	grep -q "${D}" "${f}" && ewarn "QA: File contains a temporary path ${f}"
354	sed -i -e "s:${D}:/:g" "${f}"
355	fi
356	done
357	}
358
359	perl_link_duallife_scripts() {
360	debug-print-function $FUNCNAME "$@"
361	if [[ ${CATEGORY} != perl-core ]] \|\| ! has_version ">=dev-lang/perl-5.8.8-r8" ; then
362	return 0
363	fi
364
365	perl_set_eprefix
366
367	local i ff
368	if has "${EBUILD_PHASE:-none}" "postinst" "postrm" ; then
369	for i in "${DUALLIFESCRIPTS[@]}" ; do
370	alternatives_auto_makesym "/usr/bin/${i}" "/usr/bin/${i}-[0-9]*"
371	ff=`echo "${EROOT}"/usr/share/man/man1/${i}-${PV}-${P}.1*`
372	ff=${ff##*.1}
373	alternatives_auto_makesym "/usr/share/man/man1/${i}.1${ff}" "/usr/share/man/man1/${i}-[0-9]*"
374	done
375	else
376	pushd "${ED}" > /dev/null
377	for i in $(find usr/bin -maxdepth 1 -type f 2>/dev/null) ; do
378	mv ${i}{,-${PV}-${P}} \|\| die
379	DUALLIFESCRIPTS[${#DUALLIFESCRIPTS[]}]=${i##/}
380	if [[ -f usr/share/man/man1/${i##*/}.1 ]] ; then
381	mv usr/share/man/man1/${i##*/}{.1,-${PV}-${P}.1} \|\| die
382	fi
383	done
384	popd > /dev/null
385	fi
386	}
387
388	perl_set_eprefix() {
389	debug-print-function $FUNCNAME "$@"
390	case ${EAPI:-0} in
391	0\|1\|2)
392	if ! use prefix; then
393	EPREFIX=
394	ED=${D}
395	EROOT=${ROOT}
396	fi
397	;;
398	esac
399	}