/[gentoo-x86]/eclass/perl-module.eclass
Gentoo

Diff of /eclass/perl-module.eclass

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1.60 Revision 1.107
1# Copyright 1999-2004 Gentoo Technologies, Inc. 1# Copyright 1999-2004 Gentoo Foundation
2# Distributed under the terms of the GNU General Public License v2 2# Distributed under the terms of the GNU General Public License v2
3# $Header: /var/cvsroot/gentoo-x86/eclass/perl-module.eclass,v 1.60 2004/05/01 22:03:12 rac Exp $ 3# $Header: /var/cvsroot/gentoo-x86/eclass/perl-module.eclass,v 1.107 2007/08/19 11:39:53 ian Exp $
4# 4#
5# Author: Seemant Kulleen <seemant@gentoo.org> 5# Author: Seemant Kulleen <seemant@gentoo.org>
6# Maintained by the Perl herd <perl@gentoo.org> 6# Maintained by the Perl herd <perl@gentoo.org>
7# 7#
8# The perl-module eclass is designed to allow easier installation of perl 8# The perl-module eclass is designed to allow easier installation of perl
9# modules, and their incorporation into the Gentoo Linux system. 9# modules, and their incorporation into the Gentoo Linux system.
10 10
11ECLASS=perl-module 11inherit base
12INHERITED="${INHERITED} ${ECLASS}"
13 12
14EXPORT_FUNCTIONS pkg_setup pkg_preinst pkg_postinst pkg_prerm pkg_postrm \ 13EXPORT_FUNCTIONS pkg_setup pkg_preinst pkg_postinst pkg_prerm pkg_postrm src_compile src_install src_test src_unpack
15 src_compile src_install src_test \
16 perlinfo updatepod
17 14
15# 2005.08.19 ian
16# Added ${myconf} - bug #176818
17#
18# 2005.04.28 mcummings
19# Mounting problems with src_test functions has forced me to make the
20# compilation of perl modules honor the FEATURES maketest flag rather than what
21# is generally necessary. I've left a block to make sure we still need to set
22# the SRC_TEST="do" flag on the suspicion that otherwise we will face 10 times
23# as many bug reports as we have lately.
24#
25# 2004.05.10 rac
26# block on makemaker versions earlier than that in the 5.8.2 core. in
27# actuality, this should be handled in the perl ebuild, so every perl
28# ebuild should block versions of MakeMaker older than the one it
29# carries. in the meantime, since we have dumped support for MakeMaker
30# <6.11 and the associated broken DESTDIR handling, block here to save
31# people from sandbox trouble.
32#
33# 2004.05.25 rac
34# for the same reasons, make the perl dep >=5.8.2 to get everybody
35# with 5.8.0 and its 6.03 makemaker up to a version that can
36# understand DESTDIR
37#
38# 2004.10.01 mcummings
39# noticed a discrepancy in how we were sed fixing references to ${D}
40#
41# 2005.03.14 mcummings
42# Updated eclass to include a specific function for dealing with perlocal.pods -
43# this should avoid the conflicts we've been running into with the introduction
44# of file collision features by giving us a single exportable function to deal
45# with the pods. Modifications to the eclass provided by Yaakov S
46# <yselkowitz@hotmail.com> in bug 83622
47#
48# <later the same day>
49# The long awaited (by me) fix for automagically detecting and dealing
50# with module-build dependancies. I've chosen not to make it a default dep since
51# this adds overhead to people that might not otherwise need it, and instead
52# modified the eclass to detect the existence of a Build.PL and behave
53# accordingly. This will fix issues with g-cpan builds that needs module-build
54# support, as well as get rid of the (annoying) style=builder vars. I know of
55# only one module that needed to be hacked for this, Class-MethodMaker-2.05, but
56# that module has a bad Build.PL to begin with. Ebuilds should continue to
57# DEPEND on module-build<-version> as needed, but there should be no need for
58# the style directive any more (especially since it isn't in the eclass
59# anymore). Enjoy!
60#
61# 2005.07.18 mcummings
62# Fix for proper handling of $mydoc - thanks to stkn for noticing we were
63# bombing out there
64#
65# 2005.07.19 mcummings
66# Providing an override var for the use of Module::Build. While it is being
67# incorporated in more and more modules, not all module authors have working
68# Build.PL's in place. The override is to allow for a fallback to the "classic"
69# Makfile.PL - example is Class::MethodMaker, which provides a Build.PL that is
70# severely broken.
71#
72# 2006.02.11 mcummings
73# Per a conversation with solar, adding a change to the dep/rdep lines for
74# minimal. Should fix bug 68367 and bug 83622, as well as other embedded builds
75# that use perl components without providing perl
76#
77# 2006.06.13 mcummings
78# I've reordered and extended the logic on when to invoke module-build versus
79# MakeMaker. The problem that has arisen is that some modules provide a
80# Makefile.PL that passes all arguments on to a Build.PL - including PREFIX,
81# which causes module-build to build with a target of /usr/usr/
82# (how broken is that?). Current logic is if there is a Build.PL and we aren't
83# overriding, use it; otherwise use the Makefile.PL; otherwise return (maybe we
84# want all the functionality of the perl-module eclass without needing to
85# compile??).
18 86
19DEPEND="dev-lang/perl" 87
20SRC_PREP="no" 88SRC_PREP="no"
21SRC_TEST="skip" 89SRC_TEST="skip"
90PREFER_BUILDPL="yes"
22 91
23PERL_VERSION="" 92PERL_VERSION=""
24SITE_ARCH="" 93SITE_ARCH=""
25SITE_LIB="" 94SITE_LIB=""
95VENDOR_LIB=""
96VENDOR_ARCH=""
26ARCH_LIB="" 97ARCH_LIB=""
27POD_DIR="" 98POD_DIR=""
99BUILDER_VER=""
100pm_echovar=""
101
102perl-module_src_unpack() {
103 if [[ -n ${PATCHES} ]]; then
104 base_src_unpack unpack
105 base_src_unpack autopatch
106 else
107 base_src_unpack unpack
108 fi
109}
28 110
29perl-module_src_prep() { 111perl-module_src_prep() {
30 112
31 perlinfo 113 perlinfo
32 114
115 export PERL_MM_USE_DEFAULT=1
116 # Disable ExtUtils::AutoInstall from prompting
117 export PERL_EXTUTILS_AUTOINSTALL="--skipdeps"
118
119
33 SRC_PREP="yes" 120 SRC_PREP="yes"
34 if [ "${style}" == "builder" ]; then 121 find ${S} -type d -name "\.svn" -exec /bin/rm -rf {} \; 2>/dev/null
35 perl ${S}/Build.PL installdirs=vendor destdir=${D} 122 if [ "${PREFER_BUILDPL}" == "yes" ] && ( [ -f Build.PL ] || [ ${PN} == "module-build" ] ); then
36 else 123 einfo "Using Module::Build"
37 perl Makefile.PL ${myconf} \ 124 echo "$pm_echovar" | perl Build.PL ${myconf} --installdirs=vendor --destdir=${D} --libdoc= || die "Unable to build! (are you using USE=\"build\"?)"
38 PREFIX=/usr INSTALLDIRS=vendor DESTDIR=${D} 125 elif [ -f Makefile.PL ] && [ ! ${PN} == "module-build" ]; then
126 einfo "Using ExtUtils::MakeMaker"
127 echo "$pm_echovar" | perl Makefile.PL ${myconf} INSTALLMAN3DIR='none'\
128 PREFIX=/usr INSTALLDIRS=vendor DESTDIR=${D} || die "Unable to build! (are you using USE=\"build\"?)"
129 fi
130 if [ ! -f Build.PL ] && [ ! -f Makefile.PL ]; then
131 einfo "No Make or Build file detected..."
132 return
39 fi 133 fi
40} 134}
41 135
42perl-module_src_compile() { 136perl-module_src_compile() {
43 137
138 perlinfo
44 [ "${SRC_PREP}" != "yes" ] && perl-module_src_prep 139 [ "${SRC_PREP}" != "yes" ] && perl-module_src_prep
45 if [ "${style}" != "builder" ]; then 140 if [ -f Makefile ]; then
46 make ${mymake} || die "compilation failed" 141 make ${mymake} || die "compilation failed"
142 elif [ -f Build ]; then
143 perl Build build || die "compilation failed"
47 fi 144 fi
145 fixlocalpod
48 146
147}
148
149perl-module_src_test() {
49 if [ "${SRC_TEST}" == "do" ]; then 150 if [ "${SRC_TEST}" == "do" ]; then
151 perlinfo
152 if [ -f Makefile ]; then
153 make test || die "test failed"
154 elif [ -f Build ]; then
50 perl-module_src_test || die "test failed" 155 perl Build test || die "test failed"
51 SRC_TEST="done"
52 fi 156 fi
53}
54
55perl-module_src_test() {
56 if [ "${style}" == "builder" ]; then
57 perl ${S}/Build test
58 else
59 make test
60 fi 157 fi
61} 158}
62 159
63perl-module_src_install() { 160perl-module_src_install() {
64 161
65 perlinfo 162 perlinfo
66 dodir ${POD_DIR} 163
67
68 test -z ${mytargets} && mytargets="install" 164 test -z ${mytargets} && mytargets="install"
69 165
70 if [ "${style}" == "builder" ]; then 166 if [ -f Makefile ]; then
167 make ${myinst} ${mytargets} || die
168 elif [ -f Build ]; then
71 perl ${S}/Build install 169 perl ${S}/Build install
72 else
73 make ${myinst} ${mytargets} || die
74 fi 170 fi
75 171
76 if [ -f ${D}${ARCH_LIB}/perllocal.pod ];
77 then
78 touch ${D}/${POD_DIR}/${P}.pod
79 sed -e "s:${D}::g" \
80 ${D}${ARCH_LIB}/perllocal.pod >> ${D}/${POD_DIR}/${P}.pod
81 touch ${D}/${POD_DIR}/${P}.pod.arch
82 cat ${D}/${POD_DIR}/${P}.pod >>${D}/${POD_DIR}/${P}.pod.arch
83 rm -f ${D}/${ARCH_LIB}/perllocal.pod
84 fi
85
86 if [ -f ${D}${SITE_LIB}/perllocal.pod ];
87 then
88 touch ${D}/${POD_DIR}/${P}.pod
89 sed -e "s:${D}::g" \
90 ${D}${SITE_LIB}/perllocal.pod >> ${D}/${POD_DIR}/${P}.pod
91 touch ${D}/${POD_DIR}/${P}.pod.site
92 cat ${D}/${POD_DIR}/${P}.pod >>${D}/${POD_DIR}/${P}.pod.site
93 rm -f ${D}/${SITE_LIB}/perllocal.pod
94 fi
95 172
173 einfo "Cleaning out stray man files"
96 for FILE in `find ${D} -type f -name "*.html" -o -name ".packlist"`; do 174 for FILE in `find ${D} -type f -name "*.3pm*"`; do
97 sed -i -e "s:${D}:/:g" ${FILE} 175 rm -rf ${FILE}
98 done 176 done
177 find ${D}/usr/share/man -depth -type d 2>/dev/null | xargs -r rmdir 2>/dev/null
99 178
179 fixlocalpod
180
181 for FILE in `find ${D} -type f |grep -v '.so'`; do
182 STAT=`file $FILE| grep -i " text"`
183 if [ "${STAT}x" != "x" ]; then
184 sed -i -e "s:${D}:/:g" ${FILE}
185 fi
186 done
187
100 for doc in Change* MANIFEST* README*; do 188 for doc in Change* MANIFEST* README* ${mydoc}; do
101 [ -s "$doc" ] && dodoc $doc 189 [ -s "$doc" ] && dodoc $doc
102 done 190 done
103 dodoc ${mydoc}
104} 191}
105 192
106 193
107perl-module_pkg_setup() { 194perl-module_pkg_setup() {
108 195
109 perlinfo 196 perlinfo
110} 197}
111 198
112 199
113perl-module_pkg_preinst() { 200perl-module_pkg_preinst() {
114 201
115 perlinfo 202 perlinfo
116} 203}
117 204
118perl-module_pkg_postinst() { 205perl-module_pkg_postinst() {
119 206
207 einfo "Man pages are not installed for most modules now."
208 einfo "Please use perldoc instead."
120 updatepod 209 updatepod
121} 210}
122 211
123perl-module_pkg_prerm() { 212perl-module_pkg_prerm() {
124 213
125 updatepod 214 updatepod
126} 215}
127 216
128perl-module_pkg_postrm() { 217perl-module_pkg_postrm() {
129 218
130 updatepod 219 updatepod
131} 220}
132 221
133perlinfo() { 222perlinfo() {
134 223
135 if [ -f /usr/bin/perl ] 224 local version
136 then
137 POD_DIR="/usr/share/perl/gentoo-pods/${version}"
138 fi
139 eval `perl '-V:version'` 225 eval `perl '-V:version'`
140 PERL_VERSION=${version} 226 PERL_VERSION=${version}
227
228 local installsitearch
141 eval `perl '-V:installsitearch'` 229 eval `perl '-V:installsitearch'`
142 SITE_ARCH=${installsitearch} 230 SITE_ARCH=${installsitearch}
231
232 local installsitelib
233 eval `perl '-V:installsitelib'`
234 SITE_LIB=${installsitelib}
235
236 local installarchlib
143 eval `perl '-V:installarchlib'` 237 eval `perl '-V:installarchlib'`
144 ARCH_LIB=${installarchlib} 238 ARCH_LIB=${installarchlib}
239
240 local installvendorlib
145 eval `perl '-V:installarchlib'` 241 eval `perl '-V:installvendorlib'`
146 ARCH_LIB=${installarchlib} 242 VENDOR_LIB=${installvendorlib}
243
244 local installvendorarch
147 eval `perl '-V:installsitearch'` 245 eval `perl '-V:installvendorarch'`
148 SITE_LIB=${installsitearch} 246 VENDOR_ARCH=${installvendorarch}
247
248 if [ "${PREFER_BUILDPL}" == "yes" ]; then
249 if [ ! -f ${S}/Makefile.PL ] || [ ${PN} == "module-build" ]; then
250 if [ -f ${S}/Build.PL ]; then
251 if [ ${PN} == "module-build" ]; then
252 BUILDER_VER="1" # A bootstrapping if you will
253 else
254 BUILDER_VER=`perl -MModule::Build -e 'print "$Module::Build::VERSION;"' `
255 fi
256 fi
257 fi
258 fi
259
260 if [ -f /usr/bin/perl ]
261 then
262 POD_DIR="/usr/share/perl/gentoo-pods/${version}"
263 fi
264}
265
266fixlocalpod() {
267 perlinfo
268
269 if [ -f ${D}${ARCH_LIB}/perllocal.pod ];
270 then
271 rm -f ${D}/${ARCH_LIB}/perllocal.pod
272 fi
273
274 if [ -f ${D}${SITE_LIB}/perllocal.pod ];
275 then
276 rm -f ${D}/${SITE_LIB}/perllocal.pod
277 fi
278
279 if [ -f ${D}${VENDOR_LIB}/perllocal.pod ];
280 then
281 rm -f ${D}/${VENDOR_LIB}/perllocal.pod
282 fi
149} 283}
150 284
151updatepod() { 285updatepod() {
152 perlinfo 286 perlinfo
153 287
154 if [ -d "${POD_DIR}" ] 288 if [ -d "${POD_DIR}" ]
155 then 289 then
156 for FILE in `find ${POD_DIR} -type f -name "*.pod.arch"`; do 290 for FILE in `find ${POD_DIR} -type f -name "*.pod.arch"`; do
157 cat ${FILE} >> ${ARCH_LIB}/perllocal.pod 291 cat ${FILE} >> ${ARCH_LIB}/perllocal.pod
158 rm -f ${FILE} 292 rm -f ${FILE}
159 done 293 done
160 for FILE in `find ${POD_DIR} -type f -name "*.pod.site"`; do 294 for FILE in `find ${POD_DIR} -type f -name "*.pod.site"`; do
161 cat ${FILE} >> ${SITE_LIB}/perllocal.pod 295 cat ${FILE} >> ${SITE_LIB}/perllocal.pod
162 rm -f ${FILE} 296 rm -f ${FILE}
163 done 297 done
298 for FILE in `find ${POD_DIR} -type f -name "*.pod.vendor"`; do
299 cat ${FILE} >> ${VENDOR_LIB}/perllocal.pod
300 rm -f ${FILE}
301 done
164 fi 302 fi
165} 303}

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.107

  ViewVC Help
Powered by ViewVC 1.1.20