diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-17 17:43:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-17 17:43:35 +0000 |
| commit | 33c8603284d03db56ffdf2b7136bb318beff8744 (patch) | |
| tree | 324b0c5ea829f43acbdee9ace9cb9eff7fff183a /perl-install/Xconfig/xfree.pm | |
| parent | 24691abb43cd7d050f4f371fdeaeaca962aac1da (diff) | |
| download | drakx-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.pm | 6 |
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 ####################################################################### |