scstadmin: Avoid that Perl complains about undefined values for write-only attributes

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@8171 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2019-04-08 02:16:46 +00:00
parent 8857274edb
commit aedcfc5997

View File

@@ -5881,7 +5881,11 @@ sub cacheAttributes {
}
} else {
my $value = $$attributes{$attribute}->{'value'};
$cache{$attribute}->{$value} = FALSE;
# Write-only attributes (e.g. abort_isp) do not have
# a value.
if (defined($value)) {
$cache{$attribute}->{$value} = FALSE;
}
}
}