mirror of
https://github.com/SCST-project/scst.git
synced 2026-05-14 09:11:27 +00:00
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:
@@ -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;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user