diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-03-09 14:17:48 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-03-09 14:17:48 +0000 |
commit | 37eeb68f5460b8a53aa472c84354c5914c81b73a (patch) | |
tree | f541ee7286dfdffee2b5eb179cffa9a1cd3cda55 /perl-install | |
parent | 7980020d2bd3a5402cc52fbddd3bb2072457d251 (diff) | |
download | drakx-37eeb68f5460b8a53aa472c84354c5914c81b73a.tar drakx-37eeb68f5460b8a53aa472c84354c5914c81b73a.tar.gz drakx-37eeb68f5460b8a53aa472c84354c5914c81b73a.tar.bz2 drakx-37eeb68f5460b8a53aa472c84354c5914c81b73a.tar.xz drakx-37eeb68f5460b8a53aa472c84354c5914c81b73a.zip |
catch exception (bugzilla #8726)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/Xconfig/card.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 27d1583c5..f7ed0fe8c 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -84,8 +84,8 @@ sub from_raw_X { my ($xfree3_server) = readlink("$::prefix/etc/X11/X") =~ /XF86_(.*)/; my $card = { - use_UTAH_GLX => (any { /glx/ } $raw_X->{xfree3}->get_modules), - use_DRI_GLX => (any { /dri/ } $raw_X->{xfree4}->get_modules), + use_UTAH_GLX => eval { any { /glx/ } $raw_X->{xfree3}->get_modules }, + use_DRI_GLX => eval { any { /dri/ } $raw_X->{xfree4}->get_modules }, server => $xfree3_server, prefer_xf3 => $xfree3_server && !$force_xf4, %$device, |