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

Diff of /libconf/perl-Libconf/Glueconf/Resolv.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 tv, Thu Nov 27 09:57:11 2003 UTC
# Line 256  sub STORE { Line 256  sub STORE {
256      debug "value : $value";      debug "value : $value";
257      my @pos = $obj->{libconf}->findAtomPos({ type => 'VALUE', type2 => 'RESOLV_DOMAIN' });      my @pos = $obj->{libconf}->findAtomPos({ type => 'VALUE', type2 => 'RESOLV_DOMAIN' });
258      if (@pos > 0) {      if (@pos > 0) {
259          $obj->{libconf}->ediAtom($pos[-1], {type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value});          $obj->{libconf}->editAtom($pos[-1], {type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value});
260      } else {      } else {
261          $obj->{libconf}->appendAtom({type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value});          $obj->{libconf}->appendAtom({type => 'VALUE', type2 => 'RESOLV_DOMAIN', value => $value});
262      }      }
# Line 404  sub STORE { Line 404  sub STORE {
404      my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_SORTLIST' });      my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_SORTLIST' });
405      my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}};      my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}};
406      $tab[$idx] = $value;      $tab[$idx] = $value;
407      $obj->{libconf}->ediAtom($pos[-1], { list => \@tab });      $obj->{libconf}->editAtom($pos[-1], { list => \@tab });
408  }  }
409    
410  sub FETCHSIZE {  sub FETCHSIZE {
# Line 519  sub STORE { Line 519  sub STORE {
519      my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_OPTIONS' });      my @pos = $obj->{libconf}->findAtomPos({ type => 'LIST', type2 => 'RESOLV_OPTIONS' });
520      my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}};      my @tab = @{$obj->{libconf}->getAtom($pos[-1])->{list}};
521      $tab[$idx] = $value;      $tab[$idx] = $value;
522      $obj->{libconf}->ediAtom($pos[-1], { list => \@tab });      $obj->{libconf}->editAtom($pos[-1], { list => \@tab });
523  }  }
524    
525  sub FETCHSIZE {  sub FETCHSIZE {

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