From c51b7ca4fd1eaa85caeadcfcca80ee21b8717f73 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 28 Nov 2016 15:01:32 -0800
Subject: [PATCH] Try both upper and lower case P flags
 https://www.virtualmin.com/node/44318

---
 mount/mount-lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mount/mount-lib.pl b/mount/mount-lib.pl
index 7ab28d6f7..ff74d82d0 100755
--- a/mount/mount-lib.pl
+++ b/mount/mount-lib.pl
@@ -304,7 +304,7 @@ my %donedevno;
 # Get list of zone pools
 my %zpools = ( 'zones' => 1, 'zroot' => 1 );
 if (&has_command("zpool")) {
-	my @out = &backquote_command("zpool list -P");
+	my @out = &backquote_command("zpool list -P || zpool list -p");
 	foreach my $l (@out) {
 		if (/^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
 			$zpools{$1} = [ $2 / 1024, $4 / 1024 ];