diff options
| -rw-r--r-- | config-db/OpenSLX/MetaDB/DBI.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm index 23b061d7..271463b5 100644 --- a/config-db/OpenSLX/MetaDB/DBI.pm +++ b/config-db/OpenSLX/MetaDB/DBI.pm @@ -889,7 +889,9 @@ sub setSystemAttrs $valueIsOK->($newAttrs->{$_}) && !exists $oldAttrs{$_} } keys %$newAttrs; my @attrsToBeDeleted - = grep { !$valueIsOK->($newAttrs->{$_}) } keys %oldAttrs; + = grep { + !exists $newAttrs->{$_} || !$valueIsOK->($newAttrs->{$_}) + } keys %oldAttrs; my @attrsToBeUpdated = grep { $valueIsOK->($newAttrs->{$_}) && exists $oldAttrs{$_} |