5 |
|
|
6 |
my $xf86config = new Libconf::Glueconf::XF86Config(XF86Config); |
my $xf86config = new Libconf::Glueconf::XF86Config(XF86Config); |
7 |
|
|
8 |
# #print Data::Dumper->Dump([$xf86config], ['plop']) . "\n"; |
print Data::Dumper->Dump([$xf86config], ['plop']) . "\n"; |
9 |
# my $p = $xf86config->{ServerLayout}{Identifier}; |
# my $p = $xf86config->{ServerLayout}{Identifier}; |
10 |
# #print Data::Dumper->Dump([$p], ['p']) . "\n"; |
# #print Data::Dumper->Dump([$p], ['p']) . "\n"; |
11 |
|
|
18 |
# } |
# } |
19 |
|
|
20 |
|
|
21 |
my $p = $xf86config->{InputDevice}; |
#my $p = $xf86config->{InputDevice}; |
22 |
|
|
23 |
foreach (keys %{$p}) { |
#foreach (keys %{$p}) { |
24 |
print " - $_\n"; |
# print " - $_\n"; |
25 |
} |
#} |
26 |
#print Data::Dumper->Dump([$files_section], ['files']) . "\n"; |
#print Data::Dumper->Dump([$files_section], ['files']) . "\n"; |
27 |
|
|
28 |
|
|