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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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      }      }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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