sub _read_xml_custom_icons {
my $self = shift;
- return $self->_read_xml_element(
+ return $self->_read_xml_element([],
Icon => sub {
my $self = shift;
- my $icon = $self->_read_xml_element(
+ $self->_read_xml_element(
UUID => 'uuid',
Data => 'binary',
Name => 'text', # KDBX4.1
LastModificationTime => 'datetime', # KDBX4.1
);
- $icon->{uuid} => $icon;
},
);
}
my $self = shift;
my $kdbx = $self->kdbx;
- my $entries = $kdbx->all_entries(history => 1);
my $pool = $kdbx->binaries;
- for my $entry (@$entries) {
+ my $entries = $kdbx->entries(history => 1);
+ while (my $entry = $entries->next) {
while (my ($key, $binary) = each %{$entry->binaries}) {
my $ref = $binary->{ref} // next;
next if defined $binary->{value};