blob: e081986d3780bccca19ad68cebb8a7f1a18c83f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use Xconfig::glx;
use MDK::Common;
use Data::Dumper;
my ($extension, $file1, $file2) = @ARGV;
my ($extensions1, $extensions2) = map {
print Dumper(Xconfig::glx::parse_glxinfo(file => $_));
Xconfig::glx::parse_glxinfo(file => $_)->{extensions}{$extension};
} $file1, $file2;
print Dumper(
[ difference2($extensions1, $extensions2) ],
[ difference2($extensions2, $extensions1) ],
);
|
