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

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

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

revision 1.7 by dams, Sun May 25 13:13:02 2003 UTC revision 1.8 by dams, Sun Aug 17 14:20:11 2003 UTC
# Line 32  my @keywords_option = (); Line 32  my @keywords_option = ();
32  my @keywords_list = ();  my @keywords_list = ();
33    
34  sub new {  sub new {
35      my ($pkg, $filename) = @_;      my ($class, $filename) = @_;
36      my $libconf = $pkg->Libconf::new($filename, 'XF86Config', '');      my $libconf = Libconf::new('Libconf', $filename, 'XF86Config', '');
37  #    print Data::Dumper->Dump([$libconf],['libconf']) . "\n";  #    print Data::Dumper->Dump([$libconf],['libconf']) . "\n";
38      #my $ret = Libconf::Glueconf::generateFunctions(@synopsis);      #my $ret = Libconf::Glueconf::generateFunctions(@synopsis);
39      #print " plop : $ret\n";      #print " plop : $ret\n";
# Line 42  sub new { Line 42  sub new {
42  #    $self->{content} = {};  #    $self->{content} = {};
43      tie my %wrapper, 'Libconf::Glueconf::XF86Config::Wrapper', $libconf;      tie my %wrapper, 'Libconf::Glueconf::XF86Config::Wrapper', $libconf;
44  #    print Data::Dumper->Dump([%wrapper],['wrapper']) . "\n";  #    print Data::Dumper->Dump([%wrapper],['wrapper']) . "\n";
45      \%wrapper;      bless \%wrapper, $class;
46  }  }
47    
48  #sub getSections {  #sub getSections {

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

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