EAPI=6 support; removed support befor media-video/vdr-2

[gentoo.git] / eclass / perl-functions.eclass

diff --git a/eclass/perl-functions.eclass b/eclass/perl-functions.eclass
index 75684731836641e5fe52e27569db70d9123ecd61..1542b98cd45f03e83c6fde505f0b5b81d2d49ba3 100644 (file)
--- a/eclass/perl-functions.eclass
+++ b/eclass/perl-functions.eclass
@@ -131,12 +131,31 @@ perl_delete_emptybsdir() {
 # @DESCRIPTION:
 # Look through ${D} for .packlist text files containing the temporary installation
 # folder (i.e. ${D}). If the pattern is found, silently replace it with `/'.
+# Remove duplicate entries; then validate all entries in the packlist against ${D}
+# and prune entries that do not correspond to installed files.
 perl_fix_packlist() {
        debug-print-function $FUNCNAME "$@"
 
+       local packlist_temp="${T}/.gentoo_packlist_temp"
        find "${D}" -type f -name '.packlist' -print0 | while read -rd '' f ; do
                if file "${f}" | grep -q -i " text" ; then
+                        einfo "Fixing packlist file /${f#${D}}"
+
+                       # remove the temporary build dir path
                        sed -i -e "s:${D}:/:g" "${f}"
+
+                       # remove duplicate entries
+                       sort -u "${f}" > "${packlist_temp}"
+                       mv "${packlist_temp}" "${f}"
+
+                       # remove files that dont exist
+                       cat "${f}" | while read -r entry; do
+                               if [ ! -e "${D}/${entry}" ]; then
+                                       einfo "Pruning surplus packlist entry ${entry}"
+                                       grep -v -x -F "${entry}" "${f}" > "${packlist_temp}"
+                                       mv "${packlist_temp}" "${f}"
+                               fi
+                       done
                fi
        done
 }
@@ -279,3 +298,24 @@ perl_check_env() {
        eerror "Your environment settings may lead to undefined behavior and/or build failures."
        die "Please fix your environment ( ~/.bashrc, package.env, ... ), see above for details."
 }
+
+# @FUNCTION: perl_doexamples
+# @USAGE: perl_doexamples "file_1" "file_2"
+# @DESCRIPTION:
+# Install example files ready-to-run.
+# Is called under certain circumstances in perl-module.eclass src_install
+# (see the documentation there).
+#
+perl_doexamples() {
+       debug-print-function $FUNCNAME "$@"
+
+       einfo "Installing examples into /usr/share/doc/${PF}/examples"
+
+       # no compression since we want ready-to-run scripts
+       docompress -x /usr/share/doc/${PF}/examples
+
+       docinto examples/
+       dodoc -r $@
+
+       # is there a way to undo "docinto" ?
+}