Support systems with more than 10 disks https://sourceforge.net/p/webadmin/bugs/5530/

This commit is contained in:
Jamie Cameron
2021-12-04 08:44:28 -08:00
parent 1784fc8609
commit 92369af3d7

View File

@ -26,9 +26,9 @@ sub list_disks_partitions
my @rv;
# Iterate over disk devices
foreach my $dev (glob("/dev/ada[0-9]"),
glob("/dev/ad[0-9]"),
glob("/dev/da[0-9]")) {
foreach my $dev (glob("/dev/ada[0-9]"), glob("/dev/ada[0-9][0-9]"),
glob("/dev/ad[0-9]"), glob("/dev/ad[0-9][0-9]"),
glob("/dev/da[0-9]"), glob("/dev/da[0-9][0-9]")) {
next if (!-r $dev || -l $dev);
my $disk = { 'device' => $dev,
'prefix' => $dev,