mirror of
https://github.com/SCST-project/scst.git
synced 2026-05-14 09:11:27 +00:00
scstadmin: Avoid triggering Perl warnings
git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@7958 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
@@ -3467,7 +3467,7 @@ sub listGroup {
|
||||
my $errorString;
|
||||
|
||||
($luns, $errorString) = $SCST->luns($driver, $target, $group) if (!$luns);
|
||||
if (($initiators eq '') && defined($group)) {
|
||||
if (!defined($initiators) && defined($group)) {
|
||||
($initiators, $errorString) = $SCST->initiators($driver, $target, $group);
|
||||
return TRUE if issueWarning($errorString);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user