/[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.5 by dams, Sun May 25 13:13:02 2003 UTC revision 1.6 by dams, Sun Aug 17 14:20:11 2003 UTC
# Line 30  use Libconf; Line 30  use Libconf;
30  @ISA = qw(Libconf);  @ISA = qw(Libconf);
31    
32  sub new {  sub new {
33      my ($pkg, $filename) = @_;      my ($class, $filename) = @_;
34      my $libconf = Libconf::new('Libconf', $filename, 'resolv', '');      my $libconf = Libconf::new('Libconf', $filename, 'resolv', '');
35      tie my %wrapper, 'Libconf::Glueconf::Resolv::Wrapper', $libconf;      tie my %wrapper, 'Libconf::Glueconf::Resolv::Wrapper', $libconf;
36      bless \%wrapper, $pkg;      bless \%wrapper, $class;
37  }  }
38    
39  sub readConf {  sub readConf {
40      my ($obj) = @_;      my ($obj) = @_;
     print "Resolv : Readconf --\n";  
41      $obj->{libconf}->readConf();      $obj->{libconf}->readConf();
42  }  }
43    

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

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