summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/xfree.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-17 17:43:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-17 17:43:35 +0000
commit33c8603284d03db56ffdf2b7136bb318beff8744 (patch)
tree324b0c5ea829f43acbdee9ace9cb9eff7fff183a /perl-install/Xconfig/xfree.pm
parent24691abb43cd7d050f4f371fdeaeaca962aac1da (diff)
downloaddrakx-33c8603284d03db56ffdf2b7136bb318beff8744.tar
drakx-33c8603284d03db56ffdf2b7136bb318beff8744.tar.gz
drakx-33c8603284d03db56ffdf2b7136bb318beff8744.tar.bz2
drakx-33c8603284d03db56ffdf2b7136bb318beff8744.tar.xz
drakx-33c8603284d03db56ffdf2b7136bb318beff8744.zip
use monitor-probe-using-X
Diffstat (limited to 'perl-install/Xconfig/xfree.pm')
-rw-r--r--perl-install/Xconfig/xfree.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 3aee2d311..b621393aa 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -181,7 +181,11 @@ sub _new_device_sections {
$raw_X->remove_Section('Device');
map { $raw_X->add_Section('Device', { Identifier => { val => "device$_" }, DPMS => { Option => 1 } }) } (1 .. $nb_new);
}
-
+sub get_Driver {
+ my ($raw_X) = @_;
+ my $card = eval { $raw_X->get_device };
+ $card && $card->{Driver};
+}
################################################################################
# wacoms #######################################################################