Signed-off-by: David Seifert <s...@gentoo.org>
---
eclass/perl-functions.eclass | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/eclass/perl-functions.eclass b/eclass/perl-functions.eclass
index 142fdeb8cfbd..ce511cbefa0a 100644
--- a/eclass/perl-functions.eclass
+++ b/eclass/perl-functions.eclass
@@ -1,4 +1,4 @@
-# Copyright 1999-2022 Gentoo Authors
+# Copyright 1999-2024 Gentoo Authors
# Distributed under the terms of the GNU General Public License v2
# @ECLASS: perl-functions.eclass
@@ -157,18 +157,18 @@ perl_fix_packlist() {
einfo "Fixing packlist file /${f#${D}}"
# remove the temporary build dir path
- sed -i -e "s:${D%/}/:/:g" "${f}"
+ sed -i -e "s:${D}/:/:g" "${f}" || die
# remove duplicate entries
- sort -u "${f}" > "${packlist_temp}"
- mv "${packlist_temp}" "${f}"
+ sort -u "${f}" > "${packlist_temp}" || die
+ mv "${packlist_temp}" "${f}" || die
# 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}"
+ mv "${packlist_temp}" "${f}" || die
fi
done
fi
@@ -185,7 +185,7 @@ perl_remove_temppath() {
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}"
+ sed -i -e "s:${D}/:/:g" "${f}" || die
fi
done
}
--
2.46.0
