blob: 2603ef4592809804f8e658466e0b036a256aee08 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# Copyright 1999-2015 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Id$
eblit-perl-pkg_postinst() {
dual_scripts
if [[ "${ROOT}" = "/" ]] ; then
local INC DIR file
INC=$(perl -e 'for $line (@INC) { next if $line eq "."; next if $line =~ m/'${SHORT_PV}'|etc|local|perl$/; print "$line\n" }')
einfo "Removing old .ph files"
for DIR in ${INC} ; do
if [[ -d "${DIR}" ]] ; then
for file in $(find "${DIR}" -name "*.ph" -type f ) ; do
rm -f "${file}"
einfo "<< ${file}"
done
fi
done
# Silently remove the now empty dirs
for DIR in ${INC} ; do
if [[ -d "${DIR}" ]] ; then
find "${DIR}" -depth -type d -print0 | xargs -0 -r rmdir &> /dev/null
fi
done
# einfo "Converting C header files to the corresponding Perl format (ignore any error)"
# # Prefix note: unprefixed as this is all kernel/libc stuff that we never provide
# pushd /usr/include >/dev/null
# h2ph -Q -a -d "${EPREFIX}"${ARCH_LIB} \
# asm/termios.h syscall.h syslimits.h syslog.h sys/ioctl.h \
# sys/socket.h sys/time.h wait.h sysexits.h
# popd >/dev/null
fi
}
|