Lines 139-145
Link Here
|
139 |
# without probing them. |
139 |
# without probing them. |
140 |
} elsif ($^O eq 'freebsd') { |
140 |
} elsif ($^O eq 'freebsd') { |
141 |
opendir(DEV, '/dev'); |
141 |
opendir(DEV, '/dev'); |
142 |
@drives = grep /^ad[0-9]+$/, readdir DEV; |
142 |
@drives = grep /^ad[0-9]+$|^ada[0-9]+$/, readdir DEV; |
143 |
closedir(DEV); |
143 |
closedir(DEV); |
144 |
} elsif ($^O eq 'solaris') { |
144 |
} elsif ($^O eq 'solaris') { |
145 |
@drives = map { s@.*/@@ ; $_ } glob '/dev/rdsk/c*t*d*s2'; |
145 |
@drives = map { s@.*/@@ ; $_ } glob '/dev/rdsk/c*t*d*s2'; |