#!/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) ],
);