mirror of
https://github.com/webmin/webmin.git
synced 2026-05-04 22:30:33 +01:00
Try both upper and lower case P flags https://www.virtualmin.com/node/44318
This commit is contained in:
@@ -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 ];
|
||||
|
||||
Reference in New Issue
Block a user