mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-05-14 09:11:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

scstadmin: Micro-optimize driverExists()

Browse Source 
git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@6550 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2015-10-20 18:17:08 +00:00
parent 3d9ca3b2a6
commit 8ae47bccef
1 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -922,18 +922,14 @@ sub targetGroupTargets {
sub driverExists {
my $self = shift;
my $driver = shift;
my $dHandle = new IO::Handle;
my $result;
return FALSE if (!defined($driver));
$result = defined($driver) &&
opendir($dHandle, make_path(SCST_TARGETS_DIR(), $driver));
close $dHandle if ($result);
my ($drivers, $errorString) = $self->drivers();
return SCST_C_FATAL_ERROR if (!defined($drivers));
foreach my $_driver (@{$drivers}) {
return TRUE if ($driver eq $_driver);
}
return FALSE;
return $result;
}
sub driverDynamicAttributes {