- Minor fix for setting attributes which aren't readable.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1958 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Mark Buechler
2010-08-18 15:28:18 +00:00
parent 95cbc2bbf5
commit f154480e68

View File

@@ -3709,13 +3709,11 @@ sub cacheAttributes {
if (defined($$attributes{$attribute}->{'keys'})) {
foreach my $key (keys %{$$attributes{$attribute}->{'keys'}}) {
my $value = $$attributes{$attribute}->{'keys'}->{$key}->{'value'};
$cache{$attribute}->{$value} = FALSE
if (defined($value) && ($value ne ''));
$cache{$attribute}->{$value} = FALSE;
}
} else {
my $value = $$attributes{$attribute}->{'value'};
$cache{$attribute}->{$value} = FALSE
if (defined($value) && ($value ne ''));
$cache{$attribute}->{$value} = FALSE;
}
}