From 33c8603284d03db56ffdf2b7136bb318beff8744 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Mar 2005 17:43:35 +0000
Subject: use monitor-probe-using-X

---
 perl-install/Xconfig/xfree.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/Xconfig/xfree.pm')

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 #######################################################################
-- 
cgit v1.2.1