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:
Bart Van Assche
2019-02-18 01:45:42 +00:00
parent 4ed48121e3
commit 3a87185399

View File

@@ -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);
}