gentoo-x86/eclass/perl-module.eclass

# Copyright 1999-2011 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/perl-module.eclass,v 1.130 2011/08/09 11:48:31 tove Exp $

# @ECLASS: perl-module.eclass
# @MAINTAINER:
# perl@gentoo.org
# @AUTHOR:
# Seemant Kulleen <seemant@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|4)
                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}}.${MODULE_A_EXT:-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

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