From be0d16b0b05c2dea432e4de1cae03b32f8a55ca3 Mon Sep 17 00:00:00 2001
From: Brad Davis <brd@FreeBSD.org>
Date: Sun, 10 Apr 2022 13:59:31 -0600
Subject: [PATCH] bsdinstall: filter out disks that are unavailable from the
 list of options in ZFS

Reviewed by:	allanjude, rew
Differential Revision:	https://reviews.freebsd.org/D34167
Sponsored by:	Rubicon Communications, LLC ("Netgate")
---
 usr.sbin/bsdinstall/scripts/zfsboot | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/usr.sbin/bsdinstall/scripts/zfsboot b/usr.sbin/bsdinstall/scripts/zfsboot
index 1c689af5c49..ab2cfba04d2 100755
--- a/usr.sbin/bsdinstall/scripts/zfsboot
+++ b/usr.sbin/bsdinstall/scripts/zfsboot
@@ -533,6 +533,15 @@ dialog_menu_layout()
 	done
 	disks="${new_list# }"
 
+	# Prune out disks that are not available to install to
+	local avail_disks=
+	for disk in $disks; do
+		debug= $disk get name name
+		geom disk list $name | awk '$1 == "Mode:" && $2 != "r0w0e0" { exit 1 }'
+		[ $? -eq 0 ] && avail_disks="$avail_disks $disk"
+	done
+	disks="${avail_disks# }"
+
 	# Debugging
 	if [ "$debug" ]; then
 		local disk_names=