Annotation of /branches/magellan-next/include/perl.minc
Parent Directory | Revision Log
Revision 15 -
(hide annotations)
(download)
Thu Jun 2 16:16:12 2011 UTC (13 years, 3 months ago) by niro
File size: 1470 byte(s)
Thu Jun 2 16:16:12 2011 UTC (13 years, 3 months ago) by niro
File size: 1470 byte(s)
copied includes
1 | niro | 1 | # $Header: /magellan-cvs/mage/include/perl.minc,v 1.4 2007/03/31 15:03:10 niro Exp $ |
2 | |||
3 | perlinfo() | ||
4 | { | ||
5 | if [ -f /usr/bin/perl ] | ||
6 | then | ||
7 | POD_DIR="/usr/share/perl/magellan-pods/${version}" | ||
8 | fi | ||
9 | |||
10 | eval $(perl '-V:version') | ||
11 | PERL_VERSION=${version} | ||
12 | |||
13 | eval $(perl '-V:installsitearch') | ||
14 | SITE_ARCH=${installsitearch} | ||
15 | |||
16 | eval $(perl '-V:installarchlib') | ||
17 | ARCH_LIB=${installarchlib} | ||
18 | |||
19 | eval $(perl '-V:installsitearch') | ||
20 | SITE_LIB=${installsitearch} | ||
21 | |||
22 | local installvendorlib | ||
23 | eval $(perl '-V:installvendorlib') | ||
24 | VENDOR_LIB=${installvendorlib} | ||
25 | |||
26 | local installvendorarch | ||
27 | eval $(perl '-V:installvendorarch') | ||
28 | VENDOR_ARCH=${installvendorarch} | ||
29 | |||
30 | # handling of DESTDIR changed in makemaker 6.11 | ||
31 | MMSIXELEVEN=$(perl -e 'use ExtUtils::MakeMaker; print( $ExtUtils::MakeMaker::VERSION ge "6.11" )') | ||
32 | } | ||
33 | |||
34 | # taken from gentoo eclass perl-module.eclass | ||
35 | updatepod() | ||
36 | { | ||
37 | local i | ||
38 | |||
39 | perlinfo | ||
40 | |||
41 | if [ -d "${POD_DIR}" ] | ||
42 | then | ||
43 | for i in $(find ${POD_DIR} -type f -name "*.pod.arch") | ||
44 | do | ||
45 | cat ${i} >> ${ARCH_LIB}/perllocal.pod | ||
46 | rm -f ${i} | ||
47 | done | ||
48 | for i in $(find ${POD_DIR} -type f -name "*.pod.site") | ||
49 | do | ||
50 | cat ${i} >> ${SITE_LIB}/perllocal.pod | ||
51 | rm -f ${i} | ||
52 | done | ||
53 | for i in $(find ${POD_DIR} -type f -name "*.pod.vendor") | ||
54 | do | ||
55 | cat ${i} >> ${VENDOR_LIB}/perllocal.pod | ||
56 | rm -f ${i} | ||
57 | done | ||
58 | fi | ||
59 | } | ||
60 | |||
61 | perl_preinstall() | ||
62 | { | ||
63 | perlinfo | ||
64 | } | ||
65 | |||
66 | perl_postinstall() | ||
67 | { | ||
68 | updatepod | ||
69 | } | ||
70 | |||
71 | perl_preremove() | ||
72 | { | ||
73 | updatepod | ||
74 | } | ||
75 | |||
76 | perl_postremove() | ||
77 | { | ||
78 | updatepod | ||
79 | } | ||
80 | |||
81 | export_inherits perl preinstall postinstall preremove postremove |