mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-05-20 04:01:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

SCST.pm: Do not cache the driver list

Browse Source 
Signed-off-by: Eugene Apollonsky <apollonskiy.E@raidix.com>


git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@6549 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2015-10-20 18:15:51 +00:00
parent 0e3844a5be
commit 3d9ca3b2a6
1 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm
View File

@@ -542,28 +542,26 @@ sub setScstAttribute {
SCST_C_ATTRIBUTE_STATIC);
}
my @_drivers;
sub drivers {
my $self = shift;
my $dHandle = new IO::Handle;
my $_path = SCST_TARGETS_DIR();
my @drivers;
if (!@_drivers) {
my $dHandle = new IO::Handle;
my $_path = SCST_TARGETS_DIR();
if (opendir $dHandle, $_path) {
foreach my $driver (readdir($dHandle)) {
next if (($driver eq '.') || ($driver eq '..'));
if (opendir($dHandle, $_path)) {
foreach my $driver (readdir($dHandle)) {
next if (($driver eq '.') || ($driver eq '..'));
if (-d make_path(SCST_TARGETS_DIR(), $driver)) {
push @_drivers, $driver;
}
if (-d make_path(SCST_TARGETS_DIR(), $driver)) {
push @drivers, $driver;
}
close $dHandle;
} else {
return (undef, "drivers(): Unable to read directory '$_path': $!");
}
close $dHandle;
} else {
return (undef, "drivers(): Unable to read directory '$_path': $!");
}
return (\@_drivers, undef);
return (\@drivers, undef);
}