my $obj = shift;
my $key = shift;
my @fields = @_;
- my $db = $obj->{'data'};
if ($obj->{'num_fields'} != scalar (@fields))
{
my $val;
no strict (qw(subs));
- for ($db->seq ($key, $val, R_FIRST); $db->seq ($key, $val, R_NEXT) == 0;)
+ for (($key, $val) = $db->FIRSTKEY (); ($key, $val) = $db->NEXTKEY ($key);)
{
+ die unless (defined ($key));
next if (defined ($obj->{'cache'}{$key}));
+
$obj->{'cache'}{$key} = [split ($Alarm, $val)];
}
{
if (defined ($obj->{'cache'}{$key}))
{
- $db->del ($key);
+ $db->DELETE ($key);
$obj->{'cache'}{$key} = undef;
}
# It's known that the key doesn't exist..
}
else
{
- $db->del ($key);
+ $db->DELETE ($key);
$obj->{'cache'}{$key} = undef;
}
}
my $val = join ($Alarm, @{$obj->{'cache'}{$key}});
- $db->put ($key, $val);
+ $db->STORE ($key, $val);
delete ($obj->{'cache'}{$key});
}