From c5e4f83eb5cad8dd663c7f9f3fc37041dd267a42 Mon Sep 17 00:00:00 2001
From: Andrew Benson <abenson+void@gmail.com>
Date: Wed, 4 May 2022 22:06:14 -0500
Subject: [PATCH] hooks/post-install: check for dangling symlinks

---
 common/hooks/post-install/10-check-symlinks.sh | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 common/hooks/post-install/10-check-symlinks.sh

diff --git a/common/hooks/post-install/10-check-symlinks.sh b/common/hooks/post-install/10-check-symlinks.sh
new file mode 100644
index 000000000000..9edbf082fe2b
--- /dev/null
+++ b/common/hooks/post-install/10-check-symlinks.sh
@@ -0,0 +1,11 @@
+# This hook checks for broken symlinks.
+
+hook() {
+	local dest target f
+	dest=$(readlink -f ${PKGDESTDIR})
+	msg_normal "${PKGDESTDIR} ${dest}\n"
+	while read -r f; do
+		target=$(readlink -m $f)
+		printf "   Symlink missing target: ${f#${PKGDESTDIR}} -> ${target#${dest}}\n"
+	done < <(find ${PKGDESTDIR} -type l -follow -not -path "${PKGDESTDIR}/etc/sv/*")
+}