87 |
sub NEXTKEY { |
sub NEXTKEY { |
88 |
my ($obj, $lastkey) = @_; |
my ($obj, $lastkey) = @_; |
89 |
debug "lastkey : $lastkey"; |
debug "lastkey : $lastkey"; |
90 |
my @pos = $obj->{libconf}->findAtomPos( { type => 'KEY_VALUE', key => $lastkey }); #FIXME : double entries should be removed elsewhere |
my @pos = $obj->{libconf}->findAtomPos( { type => 'KEY_VALUE', key => $lastkey }); |
91 |
$pos[-1]+1 >= $obj->{libconf}->size() and return undef; |
$pos[-1]+1 >= $obj->{libconf}->size() and return undef; |
92 |
$obj->{libconf}->getAtom($pos[-1]+1)->{key}; |
$obj->{libconf}->getAtom($pos[-1]+1)->{key}; |
93 |
} |
} |