/[libconf]/libconf/perl-Libconf/Glueconf/KeyValue.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/Glueconf/KeyValue.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dams, Sun Jun 15 01:17:28 2003 UTC revision 1.2 by dams, Fri Jul 11 17:55:56 2003 UTC
# Line 87  sub EXISTS { Line 87  sub EXISTS {
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  }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26