Parent Directory | Revision Log | Patch
revision 1.6 by dams, Sun Aug 17 14:20:11 2003 UTC | revision 1.7 by dams, Mon Oct 20 12:55:21 2003 UTC | |
---|---|---|
# | Line 102 sub STORE { | Line 102 sub STORE { |
102 | my $index; | my $index; |
103 | my @pos = $obj->{libconf}->findAtomPos({ type => 'KEY_VALUE', key => $key }); | my @pos = $obj->{libconf}->findAtomPos({ type => 'KEY_VALUE', key => $key }); |
104 | if (@pos == 0) { | if (@pos == 0) { |
105 | $index = $obj->{libconf}->appendAtom({ type => 'KEY_VALUE', key => $key }); | $index = $obj->{libconf}->appendAtom({ type => 'KEY_VALUE', key => $key, value => $value }); |
106 | } else { | } else { |
107 | $index = $pos[-1]; | $index = $pos[-1]; |
108 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |